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1.0 INTRODUCTION 


The System Management and Production Laboratory at the Research Insti- 
tute, the University of Alabama in Huntsville (UAH), was tasked by the Micro- 
gravity Experiment Projects (MEP) Office of the Payload Projects Office (PPO) 
at Marshall Space Flight Center (MSFC) to conduct research in the current 
methods of written documentation control and retrieval. The goals of this 
research were to determine the logical interrelationships within selected NASA 
documentation, and to expand on a previously developed prototype system to 
deliver a distributable, electronic knowledge-based system. This computer 
application would then be used to provide a "paperless" interface between the 
appropriate parties for the required NASA document. 


2.0 BACKGROUND AND OBJECTIVES 

The Microgravity Experiment Projects (MEP) Office of the Payload Projects 
Office (PPO) at MSFC is currently responsible for collecting and coordinating 
experiment /facility specifications and requirements between NASA and various 
colleges, universities, research centers, and other public- and private-sector 
organizations that are selected or are requesting to fly their respective 
microgravity experiments on designated flights. This coordination involves 
the communication of flight hardware requirements and the preparation and 
review of all documentation between NASA and the research groups. To reduce 
difficulties encountered by these customers of NASA, an effort was undertaken 
to research, analyze, and evaluate the current procedures involved in the 
information gathering activities. 

The MEP Office identified a need to develop an Automated Payload Experi- 
ment Tool (APET) which would lead experiment developers through the develop- 
ment planning process, obtain necessary information, establish an electronic 
data exchange avenue and allow easy manipulation/reformatting of the collected 
information. In order to fulfill this need, the University of Alabama in 
Huntsville (UAH) was tasked to design and develop the APET software package to 
meet the increasing demands to lighten the burden of documentation preparation 
and maintenance for NASA and its customers. 

The objective of this task was to expand on the results of the Automated 
Payload Experiment Tool (APET) Feasibility Study (previously performed by UAH) 
and provide procedures and software for the generation of experiment require- 
ments and flight hardware requirements. The software would assist the scien- 
tist or engineer in generating the appropriate documentation to develop and 
perform flight qualified experiments for the manned microgravity environment. 


3 . 0 CURRENT ENVIRONMENT 

The current environment of manual data gathering and information dissemi- 
nation is excessively reliant on paper as the primary medium of transfer. 

This reliance on a static media adds exponentially to the complexity of a 
process that by its nature is elaborate. Changes to a document stored on an 
information media that requires physical manipulation are costly and burden- 
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some. With no method in place to ensure that changes are incorporated 
throughout follow-on documents, (other than manual verification), modifica- 
tions to science, engineering, safety, and other documents are more suscepti- 
ble to human error than necessary. 

The design, development and preparation of an experiment to fly in space 
are time consuming tasks demanding a great deal of technical and disciplinary 
knowledge. Reducing the time required to prepare an experiment and its sup- 
porting documentation is of vital interest to the Microgravity Science Appli- 
cations Division ( MS AD ) . Methods of developing and utilizing state of the art 
information technologies are of prime concern in simplifying the critical 
Principal Investigator (PI) /Payload Element Developer (PED) interface. 


4.0 ACTIVITIES 

4.1 Form and Documentation Evaluation 

UAH collected, analyzed, organized, and evaluated a number of forms and 
documents used in the current flight hardware development process. Documents 
were analyzed as to their content, and also evaluated regarding their rela- 
tionships both within the same document and within other documents. The 
findings of this research were incorporated in the design of the computer 
software and its accompanying knowledge base. 

4.2 Design Considerations 
4.2.1 Hardware 

The objective of APET is to provide an easy to use tool to the Principal 
Investigator team. To ensure ease of use, few computer hardware requirements 
are necessary to operate the APET software package. 

APET is designed to run on any IBM-PC compatible personal computer. 

There have been four modules developed and distributed, and each module's 
requirements depend on its level of complexity. These four modules are the 
SRD, the SRD/ERD, the Project Plan, and the Science Requirements Envelope 
Document. All four packages will run on a 386 machine. However, while it is 
possible to use the SRD/ERD system on a 386 PC, it is recommended that the 
APET user install the software on a 486 PC or higher. The graphical displays, 
multiple screen windows, and the complexity of the system cause noticeable 
slowdowns on any machine less than the 486. 

The software requires that the PC be equipped with a hard disk drive. 

For proper execution, the hard drive (or some partition of it) must be named 
C* . The SRD/ERD version of APET will require approximately 14M (megabytes) of 
space on the hard drive for the system, plus another 1M on the hard drive for 
the data files created by the user. However, for optimal performance, the 
hard drive should have a total of at least 17M free upon installation of the 
software. The Project Plan and the Science Requirements Envelope Document 
will each require from 1M - 3M of hard disk space. 
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For ease of use, the PC should be equipped with a mouse. This, however, 
is not mandatory. APET utilizes hypertext technology as the user interface. 
Hypertext software systems allow for the retrieval of related information at 
the point and click of a mouse or, if a mouse is not used, at the touch of one 
or two keystrokes. For information on a highlighted topic, the user should 
move the mouse to that word and click, A window will be opened, overlaying 
the current screen. Once the information is reviewed, the user can press the 
space bar and close the window, returning the user to the previous screen. 

4.2.2 Software 


One of the primary objectives in developing the APET was to reduce the 
confusion of the documentation process. This guiding principle was instrumen- 
tal in the design of the software as well. The four APET software packages 
use a standardized format for the user interface. Screen design, menu selec- 
tion, method of data entry, and user messages take the same form throughout 
the APET packages. 

In developing the questions and knowledge base for the APET, it was 
assumed that all necessary instructions for successful completion of PI re- 
quirements were contained in the hardcopy documents. Therefore, to formulate 
user prompts, questions, explanations, etc., the questions and background 
information were taken directly from the applicable document. Definitions 
were taken from pertinent entries within the applicable document. When con- 
flicting definitions were found to exist, the most logical definition was used 
in that software section. 

4.3 Software Packages 

4.3.1 Science Requirements Document 

According to the Microgravity Science Applications Division (MSAD) Man- 
agement Plan, "The Science Requirements Document (SRD) is the basic document 
which levies the science requirements on the hardware. As such, the document 
must first provide adequate justification for conducting the experiment in 
space and then delineate and justify the individual science requirements. The 
science requirements include the observational and environmental data require- 
ments necessary to meet the science objectives". 

The SRD is the first documentation requirement to be met by the Principal 
Investigator. It was also the logical beginning for the APET software. The 
SRD section of APET consists of a query of 52 questions concerning the de- 
scription of the experiment, the limitations of non-space testing, and the 
potential benefits from the space environment. The answers to these questions 
are narrative in form (unlike other parts of APET, which are more fill-in-the- 
blank or choose from a list). User prompts for these questions were taken 
directly from the MSAD Management Plan. The user has the option of answering 
these questions sequentially or randomly (See Appendix A) . An option also 
exists to answer only the unaddressed questions, so that at any time the user 
can see how many questions remain. There are a number of options available to 
the user to make the documentation process more efficient. For example, 
during the quest ion/ answer session, the user has the option of viewing/editing 
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Zllltt, 1 « on selected questions. This adds to the consistency of the 
mater iai, and provides an easier data retrieval method for the user. For a 
full description of the SRD software package, see the SRD/ERD User Guide 

(Appendix V) Hierarchy of Menu Choices *°r SRD/ERD Package 

— 3 ‘? — Experiment Req uirements Doeumpm- 

The Experiment Requirements Document (ERD) is used bv the M vi n ^ 

developer and/or the principal investigator to'def i^rLpL^nfre^L^ts 
to be accommodated by the Space Transportation System (STS) for a given mis- 

justif ie^th^need'fo 1091031 f ° ll0W -° n d ° CUment t0 the ^ile the S^D 

justifies the need for a space environment and generally describes experiment 

requirements, the ERD expands on these generalities and requires specific 
experiment specifications. specinc 

demanUrr 86 ° f 1 “° re nature of the ERD, the user faces more 

demands to respond to questions with exact numbers rather than narrative 

word^o be" 8 '! the ERD US6r prorapts wil1 ofte n ask for a number or 

Ihlrt ? Se ! Cted from a limited list of appropriate answers, or supply a 
short (one or two word) answer to the software query. Because of the^oL 

reqUirementS ° f the ERD ' the software has a much deeper level of 
P . exi y * Q ues tions with a limited number of answers or questions that 
require logical. (YES/NO) responses can be checked against previous answers to 

Sis bunt CO « v" 9 ° r mutually exclus ive responses are not accepted, 
data and ti n *T !*" addS mUCh t0 the of the user supplied 

useful 8 8 information contained in the ERD more consistent and 


The ERD section of APET is a great deal larger than the SRD. There are 
twelve sections of the ERD, several of which taken separately would be as 
large as the SRD in its entirety. However, based on the requirements of the 

^re^ch : C °? plete aections of the ERD can be eliminated. The ERD is also 
more technically complex than the ERD, containing far more terminoloov aero 
nyms, etc. than the other APET modules. Therefore, the use of hypertext 

widely ^aatd " ir^th^ERD. graPhi ° a ““ hyp9rt '* t ~fer.„ce sections are tore 

The most critical of the ERD sections is the first, which deals with th« 

Srr\ £U \ 0tiOMl ° b3ectives - E “ h experl^nt contain, one or „ore 
Foll^i on Objectives, which in turn are composed of one or more steps. 
Follow-on sections in the ERD refer back to and are haaoH 

in ERD Section One. The APET software helps the user by requ ir ingest ^ec- 60 
ina tSt f co “ plet f d before these follow-on sections, and Sso aids by ensur- 
ihft h ^ f “ nctlonal objective is deleted, that the follow-on sections 

till nf 6r t ^ dSleted functional objective will also be deleted Again 

t^ion method ^ C °" S18tency of the material, and provides an easier docLen- 
ation method for the user. A full description of the ERD software packaoe is 

contained in the SRD/ERD User Guide (Appendix B) and the APET Hierarchy of 
Menu Choices for SRD/ERD Package (Appendix C). Hierarchy of 
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4.3.3 Project Plan 


The Project Plan is the basic planning document that describes the over- 
all plan for proceeding with the project. Project Plans are unique to each 
project and the format and level of detail vary with the size, complexity, 
sensitivity and other characteristics of the project. The Project Plan will 
cover the project to completion, including operational and data analysis 
periods. The Microgravity Science and Applications Division (MSAD) requires 
that a MSAD Project Plan be submitted and approved prior to making a major 
commitment of resources to an MSAD project. MSAD Project Plans are to be 
prepared in final draft form for the Requirements Definition Review. 

Plans will be prepared and submitted for all flight experiments. Project 
plans will be reissued, modified, or amended for reflights depending on the 
complexity of the task. A plan's preparation is the responsibility of the 
designated Project Manager at the responsible NASA center. The Project Manag- 
er will sign the MSAD Project Plan as the preparer; the Project Scientist and 
the Principal Investigator will sign as concurring. The MSAD Project Plan 
will be signed off at the NASA center prior to submission to Headquarters by 
the appropriate center's authorities. When the Program Scientist and Program 
Manager sign to register their concurrence, the MSAD Project Plan will be 
submitted to the MSAD Director for approval. 

The Project Manager is responsible for updating a MSAD Project Plan when 
significant changes occur (such as changes in scope, organization, or roles 
and responsibilities). This does not apply to resources, schedules or manpow- 
er, which are updated through normal budgeting and project monitoring activi- 
ties. The Project Manager will establish a change control process for main- 
taining the MSAD Project Plan and other project documentation. 

The Project Plan component of APET is similar to the SRD component, in 
that it is comprised primarily of text responses to a series of predefined 
questions. There are a number of options available to the user to make the 
documentation process more efficient. For a full description of the Project 
Plan software package, see the Project Plan User's Guide (Appendix D). 

4.3.4 Science Requirements Envelope Document 

The Science Requirements Envelope Document provides an envelope or volume 
of science requirements for a type of experimentation which is intended to 
encompass the science requirements generated by individual experiments of that 
type. The primary purpose of the document is to provide science requirements 
against which hardware can be conceptualized such that later, when specific 
Pis are chosen, their individual requirements will fall within the require- 
ments originally stated in the Science Requirements Envelope Document. 

The Science Requirements Envelope Document is very similar to the SRD. 

The primary difference is not the questions, but in the user responses, where 
a range of value is given for a capacity rather than a discreet measurement 
for an experiment. To complete the Science Requirements Envelope Document, 
questions were taken directly from the MSAD Management Plan. For a detailed 
description of the Science Requirements Envelope Document, see Appendix E. 
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4.3.5 Safe ty Requirements Document 


Safety Requirements Document designates the safety— related activities 
and documentation required of individual Payload Element Developers (PEDs). 
This document is applicable to all MSFC Payload Project Office managed STS 
attached payload missions and to all of the PEDs for those missions. STS 
attached payloads include Spacelab dedicated missions, middeck payloads, and 
partial-payload missions. A partial-payload mission is a flight that is not a 
Space lab-dedicated (unique) mission and is shared with other payloads. Such 
missions are also referred to as mixed cargo missions. Partial payloads are 
defined as those payloads that do not require a Spacelab module or the Space- 
lab igloo. 

After analysis of the Safety Requirements Document, it was determined 
that the UAH effort would concentrate on the preparation of the Materials 
Usage Agreement (KUA) . The document addresses the materials to be used with 
the experiment, and specifies which are considered hazardous and require 
special safety concerns. Hazardous materials reside in a NASA-central data- 
base which is accessible via modem. At the time of this writing, software is 
being developed to incorporate this database into an APET module to be used in 
the generation of the MUA section of the Safety Requirements Document. 


5.0 PRELIMINARY RESULTS OF SOFTWARE DISTRIBUTION 

To solicit inputs about the APET software package, presentations and 
demonstrations were conducted to recently selected Pis at Marshall Space 
Flight Center, Huntsville, AL; Lewis Research Center in Cleveland, OH, and at 
NASA headquarters in Washington, D.C., where instruction manuals and system 
software were distributed. The primary emphasis was on the validation of the 
SRD package, and limited emphasis was on the ERD package. Emphasis was placed 
on the SRD because it is the first document to be completed by the PI and is 
due 12-36 months before the ERD. In addition, two packages for the genera- 
tion of the Project Plan were distributed. No packages addressing the Science 
Requirements Envelope Document have been dispensed. 

The preliminary results of these distributions have been favorable. The 
first SRD software package was distributed on diskette only, with no support- 
ing documentation. Even so, the user was able to generate an acceptable SRD 
with minimal instruction from the UAH APET development staff. Comments from 
this and other early users of the system have found it user friendly, and an 
aid in meeting the documentation requirements. Users have been complimentary 
about the ease of data retrieval. 

Although the ERD component of APET has been distributed, none of the 
early PI participants have completed any ERD sections. In addition, two 
packages for the generation of the Project Plan were distributed. Likewise, 
the software distribution addressing the Project Plan has not yielded any 
conclusive results. No packages addressing the Science Requirements Envelope 
Document have been dispensed. Recipients of the software have been impressed 
with the work NASA and MSFC have put into this effort, and all have agreed 
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that the research completed is a valuable and needed first step in automating 
the documentation process. 


6.0 LIMITATIONS OF DELIVERED SOFTWARE 

The most valuable comments made about the APET software are not the 
compliments, but the criticisms. Without the customer inputs of what is still 
required in the system, it would be difficult to determine the improvements 
necessary to make it a valuable tool for the PI. The following paragraphs 
represent the most common suggestions on improving the APET tool. 

The APET software was designed to run on any IBM-compatible personal 
computer (PC) using the DOS operating system. This requirement thus restricts 
users of the Macintosh line of computers and their associated operating sys- 
tem. The determination to build for the PC and not the Macintosh was made 
primarily because little application software existed for the Macintosh that 
would offer the same support as Knowledge Pro offered for the PC. However, 
because the NASA PI community's alliances seem to be evenly split between PC 
and Macintosh, it is a reoccurring suggestion that the Macintosh be supported. 
Efforts to convert the existing PC code to a form that can be executed on the 
Macintosh are currently being investigated, and will be implemented as appro- 
priate. 

The second common suggestion is that the APET editor be improved to 
include a spell checker function. This was realized to be a shortcoming of 
Knowledge Pro from the outset of the software development project. The exclu- 
sion of a spell checker function is primarily attributable to the lack of 
random access memory (RAM) of the current generation of personal computers. 

RAM is required for both APET, Knowledge Pro, and the Knowledge Pro editor. 

The addition of an internal spell checker would increase the requirements of 
RAM to the point of system failure. The proposed solution for the lack of a 
spell checker is to include an external spell checker that can be called by 
APET. In order to add this feature, a spell checker software package that is 
inexpensive and free to distribute must be found. Attempts are being made to 
find such a package at this time. 

Most other suggestions about the APET software are not necessarily criti- 
cisms of the package but of the documentation process. For instance. Pis 
preparing to fill out the SRD commented that many of the questions asked did 
not pertain to the objective of the SRD. In those cases, it was explained 
that all questions came from the MS AD Management Plan. However, there has 
been enough commentary generated to justify that this is a valid concern with 
the PI community. The SRD should be examined for what information is needed 
to meet its objective, and eliminate any irrelevant questions that may exist. 


7.0 CONCLUSIONS AND RECOMMENDATIONS 

The APET package has been developed and distributed to Pis required to 
submit SRDs and ERDs to justify/def ine their experiments. Additionally, 
software has been developed and is currently being evaluated to fulfill the 
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documentation requirements for Project Plans and Science Requirements Envelope 
Documents. Initial software efforts have begun on the Safety Requirements 
Document, with the prototype design being developed. Based on the preliminary 
comments of the Pis who have taken part in the distribution of the APET soft- 
ware, APET fills a need to automate the documentation process. However, more 
work needs to be done to enhance the APET system. 

There should be a Macintosh version of APET available. There are a 
number of Pis who wish to use the software, but are unhappy with the PC-only 
restriction. The editor of the APET software should also be enhanced to 
include additional features, such as a spell checker. This recommendation may 
be delayed, however, until machines with a greater RAM are available on the 
market . 

It is also recommended that the findings of this research be used to 
examine the documentation requirements placed on the PI. There are instruc- 
tions in the NASA-supplied hardcopy documentation that are vague and have 
little or no relationship to the true objective of the master document. These 
instructions also offer little information as to the amount of detail required 
to adequately answer the question. These questions cause problems for the PI, 
and add unneeded complexity to the overall task. 

Once a number of SRDs have been created using APET, it is suggested that 
the software be modified to include examples of what is expected from the PI. 
This could further be developed to provide the PI a model that could be copied 
into his answer, then customized to his individual response. 

Further work should be conducted to complete the Safety Requirements 
Document’s Material Usage Listing. This will be of great benefit to the PI, 
who is unlikely to be aware of the dynamic nature of the hazardous materials 
database. This work, along with the completed validation/distribution of the 
Project Plan and the Science Requirements Envelope Document, will provide a 
solid baseline from which NASA can move from a paper environment to an elec- 
tronic environment. 


8 



APPENDIX A 
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1.0 INTRODUCTION 


So you want to fly an experiment on the Shuttle. 

Well, to begin the process, we must get a little information about your 
experiment and its requirements. 

If you have flown with us in the past, you may remember a substantial 
amount of paper documentation was required. This application, the Automated 
Payload Experiment Tool, is designed to alleviate much of the burden of the 
document preparation and maintenance process. This system can currently be 
used to prepare two support documents, the Science Requirements Document 
( SRD ) , which defines the science objectives, and the Engineering Requirements 
Document (ERD), which defines the engineering design/build requirements. The 
version that you have is for the creation of both documents. 


2.0 DISCUSSION 

2 . 1 Background 

The Microgravity Experiment Projects (MEP) Office of the Payload Projects 
Office { PPO) at the Marshall Space Flight Center (MSFC) is currently responsi- 
ble for collecting and coordinating experiment/ facility specifications and 
requirements between NASA and various colleges, universities, research cen- 
ters, and other public- and private-sector organizations that are selected or 
are requesting to fly their respective microgravity experiments on designated 
flights. This coordination involves the communication of flight hardware 
requirements and the preparation and review of all documentation between NASA 
and the research groups. To reduce difficulties encountered by these custom- 
ers of NASA, an effort was undertaken to research, analyze, and evaluate the 
current procedures involved in the information gathering activities. 

The MEP Office identified a need to develop an Automated Payload Experi- 
ment Tool (APET) which would lead experiment developers through the develop- 
ment planning process, obtain necessary information, establish an electronic 
data exchange avenue and allow easy manipulation/reformatting of the collected 
information. In order to fulfill this need, the University of Alabama in 
Huntsville (UAH) was tasked to design and develop the APET software package to 
meet the increasing demands to lighten the burden of documentation preparation 
and maintenance for NASA and its customers. 

2.2 System Requirements 

The objective of APET is to provide an easy to use tool to the Principal 
Investigator (PI) team. To ensure ease of use, few computer hardware require- 
ments are necessary to operate the APET software package. 

APET is designed to run on any IBM-PC compatible personal computer. 

While it is possible to use the system on a 386 PC, it is recommended that the 
APET user install the software on a 486 PC or higher. The graphical displays. 
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multiple screen windows, and the complexity of the system cause noticeable 
slowdowns on any machine less than the 486. 

The software requires that the PC be equipped with a hard disk drive. 

For proper execution, the hard drive (or some partition of it) must be named 
C: . The SRD/ERD version of APET will require approximately 14M (megabytes) of 
space on the hard drive for the system, plus another 1M on the hard drive for 
the data files created by the user. However, for optimal performance, the 
hard drive should have a total of at least 17M free upon installation of the 
software . 

For ease of use, the PC should be equipped with a mouse. This, however, 
is not mandatory. APET utilizes the hypertext technology, which offers a 
point-and-click user interface. Instead of a mouse, the user does have the 
option of pressing selected function keys to achieve the same effect. 

2.3 Installation 


The APET software package is provided on four high density diskettes. 

The files stored on these diskettes have been compressed; therefore, it is 
required that the user follow several simple steps to ensure correct installa- 
tion. 


1) Insert the diskette marked as "APET SRD/ERD DISK 1" in the drive 
designated as As. If the As drive on your system is not the correct size, 
then use the DOS ASSIGN command to redesignate the drives appropriately. (For 
example, if you have 3 1/2" disks but your 3 1/2" drive is Bs, then at the DOS 
prompt type ASSIGN As Bs.) 

2) From this drive (As) types 

INSTALL. 

This will activate the installation routine. A series of instructions and 
informational text will be presented. Each screen will advise what is tran- 
spiring in the installation procedure. The installation routine will create a 
subdirectory on the Cs drive called GARDEN. Once created, the files contained 
on the installation disks will be copied to the directory Cs\GARDEN. Most of 
these files have been compressed to conserve disk space. An uncompress rou- 
tine will be invoked to return these files to their normal (and usable) condi- 
tion. As the installation routine is completed for each disk, the user will 
be advised to insert the next diskette. To cancel the installation at any 
time, press the CTRL (control) C keys. 

3) Upon successful installation of the APET program files, the message 
INSTALLATION ROUTINE COMPLETE will be displayed. The APET application, run- 
ning under the direction of Knowledge Pro software, will be entered and you 
will be presented the opening menu. All subsequent sessions using the APET 
software may be initiated by going to the C:\GARDEN subdirectory and typing 
FLY. 
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2.4 Getting Started 


This application uses hypertext technology. Hypertext software systems 
allow for the retrieval of related information at the point and click of a 

mouse or, if a mouse is not used, at the touch of one or two keystrokes. For 

information on a highlighted topic, just move the mouse to that word and 
click. A window will be opened, overlaying the current window. In the new 
window, the information will immediately be displayed. Once this support 
information has been reviewed, press SPACE (or ESC) once to close the window 
and return to your original screen. If you are not using a mouse, please use 
the F3 and F4 function keys (marked Select and View) as indicated at the 

bottom of the screen. (See Figure 1). The F3 key allows you to select the 

different hypertext topics. Once the desired topic is selected (i.e. high- 
lighted), the F4 key calls the background information for view. 

Multiple page displays are indicated by the Page 1 of 2 message at the 
lower right of the screen. To navigate through multiple screen displays, 
please use the Page Up and Page Down keys to scroll either forward or backward 
through the pages. 

For help at anytime throughout the APET application, press the FI key. 
This will retrieve location sensitive help information, and may be called from 
the system or system-called edit screens. This will be the method by which 
assistance information will be retrieved throughout this application. 

APET has been designed as a menu-driven software package. This means 
that any function required of the user can be activated via a menu option. 

This includes exiting the system. It is strongly recommended that the user 
always "back out" of the application by using the appropriate menu options, 
i.e. "Return to Previous Menu". An option does exist to exit from any point 
in the application by selecting F10. It is not recommended that this be used 
from inside a question/answer section of the application. The F10 command 
causes an immediate exit from the program, without checking to ensure that 
open files have been properly saved. Therefore, the user may experience data 
loss if the application is exited in this manner. 

After the installation and initial use of the APET software, future 
systems will be initiated by going to the C:\GARDEN subdirectory and typing 
FLY. This will activate the software and present the opening menu. (See 
Figure 2 ) . 

Due to the hypertext capabilities of the APET software, a large amount of 
RAM (random access memory) is required. Because of the heavy RAM demand, 
proper execution of the software requires no other software package be running 
simultaneously with the APET software. Whenever the available RAM becomes too 
little for the application, an "Insufficient Memory" message will be shown at 
the bottom right of the screen. To alleviate this situation, simply get out 
of APET and reboot the system. This will usually free up all available RAM 
and ensure proper execution. (See Helpful Hints for further instruction. ) 
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Automated Payload Experiment Tool 

The primary purposes of the Science Requirements Document are 

(1) to provide adequate justification for conducting the 
experiment in space. 

(2) to delineate and justify the science requirements that 
the experiment places on the hardware. 

The Outline for the Science Requirements Document: 

1 .0 Introduction/Summary 

2.0 Background 

3.0 Justification for Conducting the Experiment in Space 


4.0 Experiment Details 



Figure 1 

Sample Screen Layout Using Hypertext 
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Automated Payload Experiment Tool 


Please select the activity of your choice, or choose Exit 
to leave the system. 


How to use the System 

Project Selection 

SRD Overview and Explanation 

SRD Documentation Cross-Reference 

ERD Overview and Explanation 

ERD Documentation Cross-Reference 

Glossary/Acronyms 

Print Glossary/Acronyms 

Exit System 


1 1 

FI Help 

F8 DOS 

F10 Quit 


Figure 2 

Opening APET Main Menu 
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3.0 USING THE APEX SYSTEM 


3 . I How to Use the System 

Because the use of a hypertext tool may be a new experience, a brief on 
line tutorial is provided with APET. To use this tool, please choose option 
one on the opening menu entitled "How to Use the System". To select this 
option, point with the mouse to the phrase and click. If not using a mouse, 
use the arrow keys to highlight the option and press RETURN. You can tell 
when an option has been selected because it (the phrase or word) will be 
highlighted differently from all other options. As the mouse is moved to 
other options, each in turn will be highlighted. 

Once the "How to Use the System" option has been selected, a different 
screen will be presented with a brief overview of hypertext and the methods 
°f selecting topics. (This overview is much the same as appears in Section 
2.4 of this user's guide.) Practice selecting topics and moving from one 
screen to another using either the mouse or the appropriate keyboard function 
keys . 


3.2 Project Selection 

The APET software package will accommodate one or more experiments for 
the user. However, each experiment must be identified by a short (8 charac- 
ters or less) name, which must conform to the naming convention used by the 
DOS computer operating system. Briefly, these rules state that a DOS name 
cannot be over 8 characters in length, and must contain a combination of 
either letters, numbers, or the underscore {_) character. Any other special 
keys, including the SPACE, are prohibited. The rationale behind this naming 
convention is to allow storage of data files for each experiment in a subdi- 
rectory for that specific experiment. For example, if a user is working on 
two experiments, identified as THINFILM and HIPROTEN, then there would be a 
subdirectory for each. The configuration of these files would be as follows: 

Root Directory Application Directory Experiment Directory 

Cs \ GARDEN\ THINFILM 

HIPROTEN 

Therefore, all data files containing answers for the APET questions for the 
experiment THINFILM would appear in the subdirectory THINFILM. If additional 
experiments are required, the user would identify the new experiment and an 
additional subdirectory would be added. 

Figure 3 shows the menu for selecting, adding, or deleting an experiment 
project. In the example, the experiment AADSF_L has been previously defined 
by the user. If the user wants to work on this experiment, he simply points 
and clicks on this selection. (This would be the case in a majority of the 
cases, since most Principal Investigators will have only one active experiment 
at any given point). However, if another experiment is required, the user 
would click on "ENTER A NEW PROJECT" . The user would be prompted to identify 
the new experiment, and would immediately be passed into the APET system, 
where information regarding that experiment would be addressed. 
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. . Wi8h ® 8 tQ delete an experiment, along with all its associated 

data fries, he may do so by selecting the "DELETE AN OLD PROJECT" option from 
the menu. However, there is no recoverable procedure to undelete a project 
Therefore, the user is strongly advised to use this procedure with caution. 

3.3 SRD Ove rview and Explanation 

The third selection from the APET Main Menu is the "SRD Overview and 
Explanation" This option should be selected when the user wishes to see an 

to hi 16 ” document ' along with brief explanations of the information 

to be covered in each section/subsection of the document. For an additional 

document . ^ tOPlC8 t0 ** addre88ed in the SRD ' Appendix A of this 

3*4 ERD Overview and Explanation 

The fourth selection from the APET Main Menu is the "ERD Overview and 
Explanation" This option should be selected when the user wishes to see an 

cover2 W ° f th H ERD, . al ° ng with brief explanations of the information to be 
covered in each section/subsection of the document. For an overview of the 
topics to be addressed in the ERD, see Appendix B of this document. 

3-5 SRD Doc umentation Croas-Referenoo 

The fifth selection from the APET Main Menu is the "SRD Documentation 
Cross-Reference". Selection of this option allows the user to more fully 

rSRDrand th! e ^ ter ^ eIationshi P 8 between the Science Requirements Document 

! f r docun>entatlon required by NASA. The SRD has sections that 
drJ f information contained in other sections of the SRD as well as other 
documents. Only the highlighted topics are further referenced. 

3 - 6 ERD Do cumentation Cross-Reference 

The sixth selection from the APET Main Menu is the "ERD Documentation 
ross-Ref erence" . Selection of this option allows the user to more fully 

ment^nm a ^ terr ® lationships between the Engineering Requirements Docu- 
ment (ERD) and the other documentation required by NASA. The ERD has sections 

J at r ® ference information contained in other sections of the ERD as well as 
other documents. Only the highlighted topics are further referenced. 


3.7 


Glossary /Acronyms 


A number of NASA specific terms, definitions, and acronyms will appear as 
support material throughout the documentation process. One of the primary 

toci is “ — * - *— 

. . °* tL ° n number seven from the APET Main Menu allows the user to retrieve a 
of *«-. *»« Presents the™ it , for™ analogue to a g"s.ary\n 
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a book. To view a definition, highlight the desired term and click. A term 
can be highlighted by using the mouse to move the cursor to that word, or by 
using the F3 key for selection. To view the definition, the user should 
either click the mouse or press the F4 key. The definition of that word/term 
will be presented. Should the definition contain a term that requires further 
description, highlight that word and click. The new definition will overlay 
the previous definition. This method can be repeated as long as further 
definitions exist and the memory capacity of the machine is not exceeded. 

Please note that the glossary consists of multiple pages. Remember to 
navigate through the multi-page displays by using either the Page Up/Page Down 
function keys. 

3.8 Print Glossary /Acronyms 

Option number eight from the APET Main Menu activates a routine for the 
printing of the glossary/acronym list, as discussed in 3.7. Because the 
output of this selection will be a multi-page document, the use of this option 
will be rare. 


3.9 Filling Out the SRD 

To fill out the SRD, the user must first select "Project Selection" from 
the APET Main Menu. Then the Project Selection/ Ident if ication Menu (Figure 3) 
will be presented for the user to identify either a new project or select an 
existing project. Once the select ion/ ident if ication has been made, the 
SRD/ERD Activity Menu (Figure 4) will be presented. Please note that the 
selected project is shown on the upper right corner of the screen. Please be 
sure that the project shown is the one you wish to work. 

The SRD/ERD Activity Menu presents eleven options for the user. The most 
significant of these is the first: "FILL OUT DOCUMENTATION". The selection 

of this option will present the Fill Out SRD/ERD Documentation Menu (Figure 
5). This menu offers the user three options: "ENTER PROJECT INITIALIZATION 

INFORMATION", "COMPLETE SCIENCE REQUIREMENTS DOCUMENT (SRD)", and "COMPLETE 
ENGINEERING REQUIREMENTS DOCUMENT (ERD)”. 

3 . 10 Entering Project Initialization Information 

Under most circumstances, the first information entered by the user into 
the APET system is the project initialization information. To enter this 
information, selection one from the Fill Out SRD/ERD Documentation Menu is 
chosen. This information is used to identify certain aspects of the experi- 
ment, and will be used throughout the documentation process. Entries include 
the PI name, his organization, address, city, state, zip, phone, and experi- 
ment title. This information will be provided in the form of type written 
responses to user prompts. For example, the user will be asked: 

Please enter your first and last names , i.e. Dr. John Doe. 
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The user should respond with a one line response, (if there is a limitation 
on the length of this one line response, the screen display will provide an 
instruction, such as "Please limit your response to 16 characters.") This 
will be the format of user entries throughout the APET application. When the 
user is prompted to make an entry, the response should be on one line. When 
the user responds with a RETURN, the answer is stored and the next question, 
if one exists, is asked. Once all question* for that segment have been an- 
swered, the answers are written to a data file. 

In the "Project Initialization Information" subsection, the only varia- 
lon m the user prompt/one line response routine is with the experiment 
title. Because experiment titles can be several lines, the user is given a 
prompt and immediately sent to the APET editor. This editor is a small ver- 
sion of a word processor, with many of the functions of a common word process- 
ing package. The commands used in the APET editor are similar to those in the 
software package WORDSTAR. To see the comma ds available, press the FI func- 
tion key from inside the editor. A separate window will be opened and will 
overlay the current screen. From there, page down until the function you wish 
to perform is shown. The one-to-two keystroke command to accomplish the task 
will be shown. (Note: The symbol (*) represents the CONTROL key., i.e. *KO 

means to hold the CONTROL key down while pressing the letter K, then press the 
letter Q.) when the user is finished entering the answer into the editor, he 
may exit by pressing the ESC (escape) key. A message will then appear on the 

JESS * hat tellS * he U8er name is being saved. ResponHith a 

RETURN to accept this name and save the answer, or an ESC to cancel the an- 
swer • 


important : Do not change the file name when the APET software asks if 

the name is acceptable. Future sessions that allow the user to change, del- 
ete, Print, or display the SRD answers require that these file names be used. 
Changing the file name will make the file either inaccessible or inappro- 
priate. Therefore, always accept the file name as given. 
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.— Automated Payload Experiment Tool 


The project you have selected is: AADSF_L 

Please enter your choice of activities from the list. 



FILL OUT DOCUMENTATION 
PRINT SRD 
DISPLAY SRD 

CREATE AN ASCII FILE OF SRD 
PRINT ERD 
DISPLAY ERD 
BASELINE DOCUMENT 

COMPARE BASELINE TO CURRENT REVISION 

COPY ANSWERS TO DISK 

RETURN TO PREVIOUS MENU 

RETURN TO MAIN MENU 

QUIT 







1 


FI Help 

F8 DOS 

F10 Quit 


Figure 4 

SRD /ERD Activity Menu 
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i— Automated Payload Experiment Tool 


Please select the activity you wish to perform on 
the AADS F_L project. 


ENTER PROJECT INITIALIZATION INFORMATION 
COMPLETE SCIENCE REQUIREMENTS DOCUMENT (SRD) 
COMPLETE ENGINEERING REQUIREMENTS DOCUMENT (ERD) 
RETURN TO PREVIOUS MENU 
RETURN TO MAIN MENU 
EXIT SYSTEM 


1 

FI Help 

F8 DOS 

F10 Quit 


Figure 5 

Fill Out SRD/ERD Documentation Menu 
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3*11 Complete Science Requirements Document 


To complete the Science Requirements Document , there are usually between 
50 - 60 questions that must be answered* These answers will be in the form of 
short narratives, consisting of one or more paragraphs of text. Each question 
or user prompt will invoke the APET editor and give the user sufficient space 
to write as much (or little) as required. (For an outline of the topics to be 
addressed, see Appendix A. ) A sample question from the SRD is shown in Figure 
6 . 


The Complete SRD session begins by asking the user if he has begun to 
fill out the SRD previously. A * NO * response causes the questions to be asked 
in sequence. A 'YES* response results in the question topics to be displayed 
in a list. If questions are to be answered from a list, a list will appear as 
a window that overlays the question screen. The user is expected to 
point-and-click on the appropriate topic. (If not using a mouse, use the 
arrow keys to select and press RETURN.) The user should click on the appro- 
priate answer with the left-side mouse button. 

For the initial SRD session, the user would respond with a NO and proceed 
to the questions* These questions will be asked in the same sequence as is 
shown in the outline. After each response, the user will be asked if he wants 
to continue to the next question. This gives the user a chance to end the 
session when he desires, rather than advancing through all the remaining ques- 
tions. The title of each question screen will include the number of the 
question (i.e., Number 1 of 52). This allows the user to see where he is in 
the process and act accordingly. 

If the user responds with a ’YES', which means there has been a previous 
session, the following question will appear: 

Do you wish to change only one item, resume at a point 
and continue sequentially through the remainder of the 
SRD, or complete all topics previously unanswered? 

This allows the user one of three options. 1) He may select the one answer 
that needs changing, go directly to that answer and change it, then record 
that answer to disk. 2) He can select the topic where he would like to 
resume his activities, answer that question, record the answer, and go to the 
next question in sequence. This gives the user the capability of selecting 
the 20th question, and proceed sequentially through the remaining 32 ques- 
tions* 3) The user can complete all questions that have not yet been an- 
swered. This option will invoke a command to look at what answers (files) do 
not exist, and build a list of these topics. The user then selects the topic 
to answer, answers the question, records the answer, and goes to the next 
question of his choice. With each recorded answer, that topic is removed from 
the list. 
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r Description of experiment (Question 1 of 52) 


Please enter a narrative description of the experiment. 

This topic is also addressed under the heading "Experiment 
Procedures to be Used." 

Press the RETURN KEY to enter the editor, 

ESC to leave editor, and RETURN to confirm save 

— C:\GARDEN\FULLTEST\EXPDESC.DAT 

The body of the text goes in this area. This is the description of 
the experiment. 


FI Help 

F3 Select 


Page 

ESC Exit 

F4 View 

F8 DOS 

F10 Quit 


Figure 6 

Sample SRD Question Screen 
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3.12 Printing the SR D 


The user has three methods available to generate output from the APET 
software. These include printing the document, displaying the document, and 
creating an ASCII file of the document. The APET application was designed to 
be flexible enough to go to a variety of printers. As with most output, the 
best results will be with the use of a laser printer. If a laser printer is 
not available, the use of a dot-matrix printer will also be acceptable. A 
variety, although not nearly exhaustive, of dot-matrix printers have been 
tested with the APET software, and all have performed well. 

If the document has previously been baselined (discussed later in sec- 
tion 3.19), then a menu will appear giving the user the option of printing the 
document from the baselined version, the current revision, or neither version. 
If the neither option is chosen, then it is assumed that the user does not 
want the document printed, and the program will automatically return to the 
previous menu. If the baseline option is chosen, then the document will be 
printed from the file which is in the project baseline subdirectory. If the 
current revision option is chosen, then the document will be printed from the 
version of the document which the user is currently revising. If the document 
has not been baselined, then the document will be printed from the current 
version. 

The printing of the SRD will generate the document in its entirety. An 
initial page eject will normally (depending on printer type) advance a blank 
sheet of paper before the cover sheet is printed. This will be followed by a 
second page advance, then page one of the document will be printed, followed 
by two, three, etc. through the end of the document. Because there are often 
graphics, tables, etc. that must be inserted within the textual document, no 
table of contents is printed. Because of the limitation of graphics support, 
it is suggested that all externally generated graphic illustrations, tables, 
etc. be provided in an appendix, with appropriate references throughout the 
document • 

While the print procedure is active, a message will appear in the lower 
left of the screen. No other activities may take place while the document is 
printing. In case the printer runs out of paper, an error message will ap- 
pear. Reload paper in the printer and press the SPACE key to continue. 

3.13 Displaying the SRD 

The second method of generating output using APET is to display sections 
of the SRD to the screen. The SRD is divided into seven major sections, with 
each divided into one or more subsections (see Appendix A). The user has the 
capability of selecting a section and seeing the identical output as would 
appear if the document was printed. Displaying the SRD is recommended to 
quickly review answers, especially during the development phase of document 
preparation. 

If the document has previously been baselined (discussed later in sec- 
tion 3.19), then a menu will appear giving the user the option of displaying 
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the document from the baselined version, the current revision, or neither 
version. If the neither option is chosen, then it is assumed that the user 
does not want the document displayed, and the program will automatically 
return to the previous menu. If the baseline option is chosen, then the 
document will be displayed from the file which is in the project baseline 
subdirectory. If the current revision option is chosen, then the document 
will be displayed from the version of the document which the user is currently 
revising. If the document has not been baselined, then the document will be 
displayed from the current version. 

Most SR D sections will require multiple page displays. Please note that 
to view the equivalent of an entire printed page, there will be at least three 
and usually four screen displays. Use the Page Up/Page Down method to move up 
or down in the document. Once a page is adequately reviewed, press the SPACE 
key to retrieve the next page in sequence. To abandon a display at any time, 
press the F10 key. 

3.14 Create an ASCII File of SRD 

The APET software does not have the ability to generate or insert graph- 
ics, charts, etc. that were created in some other application. This is pri- 
marily due to the memory size limitations of the computer. However, to alle- 
viate this limitation, APET does have the ability to generate an ASCII file of 
its SRD output. After choosing this option, the user need only type in the 
full file name (includes drive, file name, and extension). The file will then 
be created as a replica of the printed output. 

The benefit of creating an ASCII text file of the SRD is in providing the 
user with the capability of enhancing the final printing by inserting graph- 
ics, photos, tables, equations, or other difficult to create figures. In 
addition, different fonts, font sizes, and special effects can be used to 
dress up the final printed output. 

3 . 15 Filling Out the ERD 

To fill out the ERD, the user must first select "Project Selection" from 
the APET Main Menu. Upon this action, the Project Selection/ Identification 
Menu (Figure 3) will be presented for the user to identify either a new project 
or select an existing project. Once the selection/ identification has been 
made, the SRD/ERD Activity Menu (Figure 4) will be presented. Please note 
that the selected project is shown on the upper right corner of the screen. 
Please be sure that the project shown is the one you wish to work. 

The SRD/ERD Activity Menu presents eleven options for the user. The most 
significant of these is the first: "FILL OUT DOCUMENTATION". The selection 

of this option will present the Fill Out SRD/ERD Documentation Menu (Figure 5). 
This menu offers the user three options: "ENTER PROJECT INITIALIZATION INFOR- 

MATION", "COMPLETE SCIENCE REQUIREMENTS DOCUMENT (SRD)" and "COMPLETE ENGI- 
NEERING REQUIREMENTS DOCUMENT (ERD)". Select "COMPLETE ENGINEERING REQUIRE- 
MENTS DOCUMENT (ERD)" if the project initialization information has already 
been entered. If this information has not already been entered, select it 
before generating the ERD. 
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3.16 Complete Engineering Requirements Document 


To complete the Engineering Requirements Document, the user must answer 
a series of questions about the experiment. The questions are grouped into 
topics, a list of which is presented to the user. The user is asked to select 
the topic which is to be displayed. The chosen topic will be displayed along 
with the subtopics covered within that section. The user is prompted as to 
whether or not he wishes to begin or continue filling out the questions in that 
section. (For an outline of the topics to be addressed, see Appendix B.) If 
the user chooses to fill out the section, he will be prompted to select one of 
the subheadings. Upon subheading selection, a brief description of the topic 
will be given, along with any necessary instructions for answering the 
question* 

If the question invokes the editor, the answers should be given in the 
form of short narratives, consisting of one or more paragraphs of text. Suf- 
ficient space will be given to write as much (or little) as required. If an 
answer requires a numeric response, enter the number just as you wish it to 
appear. A sample of this procedure is shown in Figures 7 thru 11. 

Upon selection of a topic, if the questions within that chosen topic 
have already been answered, the user will be prompted with a message saying 
that the section has already been completed. The user then has the options 
of ADDING, EDITING, or DELETING answers, or RETURNING to the previous menu. 

The user should select an option and follow the instructions accordingly. If 
the chosen topic does not have any related subtopics, and the user wishes 
to complete that section, the program will give instructions for answering 
that question, and the APET editor will be invoked as needed. 

Some of the topics have accompanying illustrations ) in order to give 
the user a better understanding of what information is needed. If you wish 
to view the illustration, simply click on, or select, the appropriate phrase. 
This will cause the screen to momentarily go blank, and the illustration will 
then be presented. After you have viewed the illustration, simply press SPACE 
and the program will return you to your original screen. 

3.17 Printing the ERD 

The user has two methods available to generate output from the APET soft- 
ware in regard to the ERD. These include printing the document, and display- 
ing the document. The APET application was designed to be flexible enough to 
go to a variety of printers. As with most output, the best results will be 
with the use of a laser printer. If a laser printer is not available, the use 
of a dot-matrix printer will also be acceptable. A variety, although not 
nearly exhaustive, of dot-matrix printers have been tested with the APET 
software, and all have performed well. 

If the document has previously been baselined (discussed later in sec- 
tion 3.19), then a menu will appear giving the user the option of printing the 
document from the baselined version, the current revision, or neither version. 
If the neither option is chosen, then it is assumed that the user does not 
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want the document printed, and the program will automatically return to the 
previous menu. If the baseline option is chosen, then the document will be 
printed from the file which is in the project baseline subdirectory. If the 
current revision option is chosen, then the document will be printed from the 
version of the document which the user is currently revising, if the document 
has not been baselined, then the document will be printed from the current 
version. 


The printing of the ERD must be accomplished by printing either selected 
sections or tables of the document. An initial page eject will normally 
(depending on printer type) advance a blank sheet of paper before the first 
sheet is printed. This will be followed by a second page advance, then page 
one of the document will be printed, followed by two, three, etc. through the 
end of the document. Because there are often graphics, tables, etc. that must 
be inserted within the textual document, no table of contents is printed. 
Because of the limitation of graphics support, it is suggested that all exter- 
nally generated graphic illustrations, tables, etc. be provided in an appen- 
dix, with appropriate references throughout the document. 

While the print procedure is active, a message will appear in the lower 
left of the screen. No other activities may take place while the document is 
printing. In case the printer runs out of paper, an error message will appear. 
Reload paper in the printer and press the SPACE key to continue. 

3.16 Displaying the ERD 

The second method of generating ERD output using APET is to display 
sections of the ERD to the screen. The ERD is divided into twelve major 
sections, some of which may be divided into more subsections (see Appendix B). 
The user has the capability of selecting a section and seeing the identical 
output as would appear if the document was printed. Displaying the ERD is 
recommended to quickly review answers, especially during the development phase 
of document preparation. 

If the document has previously been baselined (discussed later in sec- 
tion 3.19), then a menu will appear giving the user the option of displaying 
the document from the baselined version, the current revision, or neither 
version, if the neither option is chosen, then it is assumed that the user 
does not want the document displayed, and the program will automatically 
return to the previous menu. If the baseline option is chosen, then the 
document will be displayed from the file which is in the project baseline 
subdirectory. If the current revision option is chosen, then the document 
will be displayed from the version of the document which the user is currently 
revising, if the document has not been baselined, then the document will be 
displayed from the current version. 

Most ERD sections will require multiple page displays. Please note that 
to view the equivalent of an entire printed page, there will be at least three 
and usually four screen displays. Use the point-and-click (or Page Up/Page 
Down) method to move up or down in the document. Once a page is adequately 
reviewed, press the SPACE key to retrieve the next page in sequence. Displays 
will continue until all output has been presented. 
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I_ Automated Payload Experiment Tool 

The suggested outline for the Engineering Requirements 
Document (ERD) is as follows. Please choose the 
Section with which you would like to begin/resume: 


1 Functional Objectives & Equipment Identification 

2 Structural/Mechanical 

3 Pointing/Stabilization and Alignment 

4 Orbital Requirements and Constraints 

5 Electrical Requirements 

6 Thermal Control/Fluid Requirements 

7 Data System Requirements 

8 Flight Software Requirements 

9 Physical Integration 

10 Mission Operations Support 

11 Training Objectives 

12 Environmental Contamination Data Requirements 
Return to Previous Menu 


1 — 




FI Help 

F3 Select 
F4 View 

F8 DOS 

F10 Quit 



Figure 7 

ERD List of Sections 
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Automated Payload Experiment Tool 

1.0 Functional Objectives And Equipment Identification 


1.1 Functional Objectives 

1.2 Equipment Identification 

1.3 Operational Function Flow 


Do you wish to begin/continue filling out this section. 


Help F3 Select 

F4 View 


YES 

ISIO 


F8 DOS FI 0 Quit 


Figure 8 

ERD Section Selection 
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r— Automated Payload Experiment Tool 

With which subheading do you wish to begin? 


1.1 Functional Objectives 

1.2 Equipment Identification 

1 .3 Operational Function Flow 
Quit 


FI Help 

F3 Select 


Pg 1 of 1 


F4 View 

F8 DOS 



Figure 9 

ERD Subtopic Selection 
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— Automated Payload Experiment Tool — 

| 1.0 Functional Objectives and Equipment Identification — 

A definition of the experiment objectives and identification 
of the payload element equipment items needed to accomplish these 
objectives are necessary to define the support required from the 
STS or PMM by the instrument and the Principle Investigator. 

Press SPACE to continue. 



FI Help 

F3 Select 


1 

Pg 1 of 1 

Space Cont. 

F4 View 

F8 DOS 

FIO Quit 


Figure 10 

ERD Topic Narrative 
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-Automated Payload Experiment Tool 



Figure 11 

Sample ERD Question 
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3 . 19 Baselining a Document 


At some point in the documentation procedure, the SRD/ERD will be consid- 
ered complete and released to external offices, agencies, organizations, etc. 
When this occurs, that version of the document is considered the baseline, and 
should be easily identified as such. 


To aid in the process of maintaining separate versions of the SRD and 
ERD, an option exists to baseline the current version of the document. (See 
Figure 12) The selection of this option will cause a replica of the current 
version's answers (or data files) to be copied to a new subdirectory for that 
experiment. This new subdirectory will be called BASELINE. From that point, 
all additional editing will transpire on a new version of the answers, while 
he baselined version of the answers will remain intact. The generation of 
output will require the user to identify which version (baseline or current 
revision) he wishes to access. 

3*20 Comparing a Baselin e to the Current Revision 

Once the document has been baselined (See Section 3.19), the user may 
wish to compare this baseline with the current revision. APET provides a 
mechanism to accomplish this task. By selecting the option "Compare Baseline 
to Current Revision", a DOS routine will be invoked to compare all identical 
data files from the current revision to the baseline document. This compari- 
son generates a file that can then be displayed or printed, so that a quick 
review will show which answers have been modified since the original baseline 


3.21 Copying Answers to Disk 

The final output option provided by APET is the creation of files that 
contain all data generated by the software. This can be used as either a 
backup mechanism during the creation of the files, or as a means of submission 
of the final document instead of a hard copy/printed document. By submitting 
the answers on diskette, the receiving party can have direct access to the 
answers in the same manner as would the sender. These files are not formatted 
as an ASCII file, and should not be confused with the final report output. 
Section 4 " u8in 9 th e "Create an ASCII File of SRD" (discussed in 


The user will have the option of selecting either the baseline document 
or the current revision. After this selection, the user is asked to select 
the drive to receive the backup (either A:,B:,C:, or D:). A DOS copy command 
will then be invoked to copy all files to the selected drive. 
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r— Automated Payload Experiment Tool 


At some point in the documentation process, it is necessary to 
declare that all documents are complete, and that any changes 
to be made will be treated as revisions to the baseline document. 

Do you want to baseline your answers at this time? 


YES 

NO 


1 1 

FI Help 

F8 DOS 

F10 Quit 


Figure 12 
Baseline Menu 
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4*0 HELPFUL HINTS 


1) Avoid the use of the F10 key to exit from within the APET application. It 
is a better practice to back out of the APET system through the use of the 
menus. By doing so, the user ensures that all answers are properly recorded 
to the disk drive. Use of the F10 key from within the APET application will 
allow the user to exit but will not automatically save information generated 
during the session. 

2) APET does not support the insertion of externally generated graphics, 
tables, equations, or other non-text material. To alleviate this problem 
without the added labor of using a secondary word processor, it is suggested 
that any such material be included in an Appendix, and referenced in the text 
generated in APET. 

3) To insert an externally generated text file into the text area in the APET 
editor, use the command ~KR from within the editor. This is one of a variety 
of commands that can be used from the APET word processor. To see all avail- 
able commands, press the FI key from inside the editor and page through the 
instruction set. 

4) The APET editor uses a word wrap routine that automatically wraps the line 
to the next line (a common word processing feature). It also maintains verti- 
cal alignment along the left margin* If you use indented paragraphs, please 
be sure that the line after the indented line begins in the column you desire. 
To do this, use the backspace key to move the first word in the line to the 
column desired. The recommended solution to this problem is not to indent 
paragraphs, but instead insert a blank line between each paragraph. 

5) If your computer system is configured to automatically load WINDOWS or 
some other application package, it may be necessary to alter the AUTOEXEC.BAT 
file (located in the boot drive). Instructions for changing the automatic 
load of an application will vary by computer. One of the easier methods is to 
edit the AUTOEXEC.BAT file and remove the line that calls the package. For 
example, WINDOWS is called by the command WIN. By preventing these packages 
from loading, a significant amount of BAM is freed and allowed for use by 
APET. 
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APPENDIX A 


SRD Topic Outline 




1.0 INTRODUCTION/ SUMMARY 

1 . 1 Descripton of Experiment 

(Question 1) 

1.2 Scientific Knowledge to be Gained 

(Question 2) 

1.3 Value of Knowledge to Scientific Field 

(Question 3) 

1.4 Justification of the Need for Space Environment 

(Question 4) 


2.0 BACKGROUND 

2.1 Descripton of Scientific Field 

(Question 5) 

2.2 Current Application for Research 

(Question 6) 

2 . 3 Brief Historical Account of Prior Research 

(Question 7) 

2 . 4 Current Research 

(Question 8) 

2 . 5 Relationship of Proposed Experiment 
(Question 9) 

2 . 6 Anticipated Advance in State of the Art 

(Question 10) 


3.0 JUSTIFICATION FOR CONDUCTING THE EXPERIMENT IN SPACE 

3 . 1 Limitations of Ground-Based Testing 

(Question ll) 

3 . 2 Limitations of Drop Towers 

(Question 12) 

3 . 3 Limitations of Testing in Aircraft 

(Question 13) 

3 . 4 Need for Accommodations in the Shuttle 

(Question 14) 
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3.5 Limitations of Mathematical Modeling 

(Question 15) 

3.6 Limitations of Other Modeling Approaches 

(Question 16) 


4.0 EXPERIMENT DETAILS 

4 . 1 Experiment Procedures to be Used 
(Question 17) 

4 . 2 Measurements Required 
(Question 18) 

4.3 Test Plan Including Ground Characterization of Flight Hardwa 

(Question 19) 

4.4 Specific Analysis Required 

(Question 20) 

4.5 Preflight Experiment Planned 

(Question 21) 

4.6 Post Flight Data Handling and Analysis 

(Question 22) 

4 . 7 Mathematical Models Used 
(Question 23) 

4.8 Application of Results 

(Question 24) 


5.0 EXPERIMENT REQUIREMENTS 

5.1 Experiment Sample Requirements 

(Question 25) 

5 . 2 Atmospheric Requirements 

5.2.1 Pressure 
(Question 26) 

5.2.2 Gas Composition 

(Question 27) 

5.2.3 Humidity 

(Question 28) 

5.2.4 Vacuum 
(Question 29) 
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5.3 Temperature Control and Measurement 

(Question 30) 

5.4 Vibration Control and Measurement 

(Question 31) 

5 . 5 Test Matrix 

(Question 32) 

5 . 6 Imaging Requirements 

5.6.1 Photography 

(Question 33) 

5.6.2 Radiography 

(Question 34) 

5.6.3 Television 

(Question 35) 

5.6.4 Resolution 

(Question 36) 

5.6.5 Frame Rate 

(Question 37) 

5.7 Electromagnetic Limitations 

(Question 38) 

5 . 8 Astronaut Involvement 

5.8.1 Extravehicular Activity 

(Question 39) 


5.8.2 Activation of Experiment 

(Question 40) 

5 . 9 Data Requirements 

(Question 41) 

5.10 Telepresence and Telerobotics 

5.10.1 Telepresence 

(Question 42) 

5.10.2 Telerobotics 
(Question 43) 
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6 . 0 PRINCIPAL INVESTIGATOR • S REQUIREMENTS 

6 . 1 Research Equipment 

6.1.1 Preflight 
(Question 44) 

6 . 1.2 Postflight 

(Question 45) 

6.2 Apparatus Design Assistance 

(Question 46) 

6 . 3 Consultation 

(Question 47) 

6.4 Grants and Contracts 

6.4.1 Grants 

(Question 48) 

6.4.2 Contracts 

(Question 49) 

6 . 5 Services 

6.5.1 Film Developing 

(Question 50) 

6.5.2 Software Development 

(Question 51) 


7.0 OTHER REQUIREMENTS 

(Question 52) 
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APPENDIX B 
ERD Topic Outline 




For assistance in using this software, 
or to offer suggestions or comments, 
please contact the following: 

Mr . Gary Maddux 
Ms • Anna Provancha 
Mr. David Chattam 

at (205) 895-6343, 
or write 


Systems Management and Production Laboratory 
Research Institute 
RI E-47 

The University of Alabama in Huntsville 
Huntsville, AL 35899 




1.0 FUNCTIONAL OBJECTIVES AND EQUIPMENT IDENTIFICATION 

1.1 Functional Objective Requirements Sheet 
Table l-l. Experiment Functional Objectives 

2 . 0 STRUCTURAL/MECHANICAL 

3.0 POINTING/ STABILIZATION AND ALIGNMENT 

3 . 1 Pointing Requirements 

3.2 Stabilization Requirements 

3.3 Viewing Requirements 

3 . 4 IPS Pointing Requirements 

3.5 Experiment Pointing Capabilities 

3 . 6 On-Orbit Acceleration and Vibration Limits 

3.7 Alignment Requirements 

3.8 Coalignment Requirements 

4.0 ORBITAL REQUIREMENTS AND CONSTRAINTS 

4.1 Desired Orbit Characteristics 

4.2 Earth and Celestial Target List and Viewing Time 
Requirements 

4.3 Viewing Requirements and Constraints (Earth and 
Solar Viewing) 

4.4 Viewing Requirements and Constraints (Celestial 
Viewing) 

4.5 Vehicle Motion and g-Level Limits 

5.0 ELECTRICAL REQUIREMENTS 

6.0 THERMAL CONTROL/ FLUID REQUIREMENTS 

7.0 DATA SYSTEM REQUIREMENTS 
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8.0 FLIGHT SOFTWARE REQUIREMENTS 

8 . 1 Experiment Computer Software Requirements Summary 

8.2 Functional Description of Software Package (s) 

9.0 PHYSICAL INTEGRATION 

10.0 MISSION OPERATIONS SUPPORT 

11.0 TRAINING OBJECTIVES 

11.1 Training Participation 

11.2 Training Objectives 

12.0 ENVIRONMENTAL CONTAMINATION DATA REQUIREMENTS 

12.1 Flight Environmental Limits 

12.2 On-Orbit External Contamination Control 
Sensitivity 

12 . 3 External Contamination Sources 
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APPENDIX C 


APET Hierarchy of Menu Choices for SRD/ERD Package 



APET Hierarchy of Menu Choices for SRD/ERD Package 



*The Project Name is entered by the user. The number of project names depends on the number of projects entered by the user. 











































Continuation of SRD Menu Choices 


Hove you begun 
a SRD previously? 


YES 













Change One 
Item 


Change and 
Continue 


Complete 

Unanswered 

Topios 


Quit 


Lists 43 Topics 
Answers One at a Time 

Lists 43 Topics 
User Selects One 
Loops Through The Rest 

Creates List Unanswered Topics 
Answers One at a Time 


NO 


Loops Through 
All 43 Topics 
See Logical 
Flow Chart 


1. Introduction/Summary 

| Description of Experiment | 

| Scientific Knowledge to be Gained ) 

[ Value of Knowledge to Scientific field | 

| Justification on the Need for Space Environment J . 


3. Experiment Requirements 

j Application of Results ! 

[ Experiment Sample Requirements [ 
| Atmospheric Requirements ] 


yes 


| Atmospheric Requirements (Pressure) 

1 1 " 1 — 

| Atmospheric Requirements (Gas Composition) 

1 - , 

[Atmospheric Requirements (Humidity) I 

Atmospheric Requirements (Vacuum) 


□ 

1 

1 no 




1 Temperature Control and Measurement [ 

| Vibration Control and Measurement | 

| Test Matrix 1 


Imaging Requirements 



Imaging Requirements (Photography) 1 
Imaging Requirements (Radiography) I 
Imaging Requirements (Television)"! 
imaging Requirements (Resolution) | 
Imaging Requirements (Frame Rate)! — 


Electromagnetic Limitations | _ 

Astronaut Involvement (Extravehicular Activity) __ 

a ^EstronauMnvol^ of Experiment)! 

Data Requirements | — 

Telepresence"! 

1 Telerobotics | — 

| Quit 


2. Background 

Description of Scientific Field 
Current Applications for ResearcF] 

Account of frrior Research | 

Current Research | 

Relationship to Scientific Fiel9""| 

Anticipated Advance "| 

3. Justification for Conducting the Experiment in Spac< 

I Limitations of Ground-Based Testinql 

1 Limitations of Drop Towers \ 

Limitations of Testing in Aircra1T| 

Need for Accommodations in the Shuttle! 
Limitations of Mathematical Modeling I 
Limitations of Other Modeling Approaches) 

4. Experiment Details 

I Eftggrimpnt Procedures to be Ujgd] 

| Measurements Required! 

I Test Plan I 

| Specific Analysis Required | 

Preflight Experiment Planned 
Post Flight Data Handling and Analysis 
I Mathematical Models Used I 

6. Principal Investigator's Requirements 
H Research Equiupment (Preflightjl 

- [ Research Equipment (Postflightj~| 

- | Apparatu s D esign Assistance! 

-| Consultation 1 
^ Grantl 
- [ Contractl 

-| Services (Film Developing) | 

- | Services (Software Development)] 

7. Other Requirements 

-I Other Requirements ] 
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Baseline Menu 


1.0 INTRODUCTION 


So you want to fly an experiment on the Shuttle. 

Well , to begin the process , we must get a little information about your 
experiment and its requirements. 

If you have flown with us in the past, you may remember a substantial 
amount of paper documentation was required. This application, the Automated 
Payload Experiment Tool, is designed to alleviate much of the burden of the 
document preparation and maintenance process. This system can currently be 
used to prepare three support documents: the Science Requirements Document 

(SRD), which defines the science objectives, the Engineering Requirements 
Document (ERD), which defines the engineering design/build requirements, and 
the Project Plan. The version you have is for the creation of the Project 
Plan only. 


2.0 DISCUSSION 

2 . 1 Background 

The Microgravity Experiment Projects (MEP) Office of the Payload Projects 
Office ( PPO) at the Marshall Space Flight Center (MSFC) is currently responsi- 
ble for collecting and coordinating experiment /facility specifications and 
requirements between NASA and various colleges, universities, research cen- 
ters, and other public- and private-sector organizations that are selected or 
are requesting to fly their respective microgravity experiments on designated 
flights. This coordination involves the communication of flight hardware 
requirements and the preparation and review of all documentation between NASA 
and the research groups. To reduce difficulties encountered by these custom- 
ers of NASA, an effort was undertaken to research, analyze, and evaluate the 
current procedures involved in the information gathering activities. 

The MEP Office identified a need to develop an Automated Payload Experi- 
ment Tool (APET) which would lead experiment developers through the develop- 
ment planning process, obtain necessary information, establish an electronic 
data exchange avenue and allow easy manipulation/reformatting of the collected 
information. In order to fulfill this need, the University of Alabama in 
Huntsville (UAH) was tasked to design and develop the APET software package to 
meet the increasing demands to lighten the burden of documentation preparation 
and maintenance for NASA and its customers. 

2 . 2 System Requirements 

The objective of APET is to provide an easy to use tool to the Principal 
Investigator (PI) team. To ensure ease of use, few computer hardware require- 
ments are necessary to operate the APET software package. 

APET is designed to run on any IBM-PC compatible personal computer. 

While it is possible to use the system on a 386 PC, it is recommended that the 
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APET user install the software on a 486 PC or higher. The graphical displays, 
multiple screen windows, and the complexity of the system cause noticeable 
slowdowns on any machine less than the 486. 

The software requires that the PC be equipped with a hard disk drive. 

For proper execution, the hard drive (or some partition of it) must be named 
C: . The Project Plan version of APET will require approximately 2M (mega- 
ytes) of space on the hard drive for the system, plus another 1M on the hard 
drive for the data files created by the user. However, for optimal perfor- 
mance, the hard drive should have a total of at least 4M free upon installa- 
tion of the software. 


For ease of use, the PC should be equipped with a mouse. This, however, 
is not mandatory. APET utilizes the hypertext technology, which offers a 
point-and-click user interface. Instead of a mouse, the user does have the 
option of pressing selected function keys to achieve the same effect. 

2.3 Installation 


The APET software package is provided on one high density diskette. The 
files stored on this diskette have been compressed; therefore, it is required 
that the user follow several simple steps to ensure correct installation. 


1) Insert the diskette marked as "APET PROJECT PLAN" in the drive 
designated as A;. If the A: drive on your system is not the correct size, 
then use the DOS ASSIGN command to redesignate the drives appropriately. (For 

example, if you have a 3 1/2" disk but your 3 1/2" drive is B;, then at the 
DOS prompt type ASSIGN A: B: . ) 


2) From this drive (A:) type: 


PINSTALL. 

This will activate the installation routine. A series of instructions and 
informational text will be presented. Each screen will advise what is tran- 
spirmg m the installation procedure. The installation routine will create a 
subdirectory on the C: drive called GARDEN. Once created, the files contained 
on t e installation disk will be copied to the directory C: \ GARDEN. Most of 
these files have been compressed to conserve disk space. An uncompress rou- 
tine will be invoked to return these files to their normal (and usable) condi- 
lon. To cancel the installation at any time, press the CNTL (control) c 


3) Upon successful installation of the APET program files, the message 
STALLATION ROUTINE COMPLETE will be displayed. The APET application, run- 
ning under the direction of Knowledge Pro software, will be entered and you 
will be presented the opening menu. All subsequent sessions using the APET 
software may be initiated by going to the C:\GARDEN subdirectory and typing 
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2.4 Getting Started 


This application uses hypertext technology. Hypertext software systems 
allow for the retrieval of related information at the point and click of a 

mouse or, if a mouse is not used, at the touch of one or two keystrokes. For 

information on a highlighted topic, just move the mouse to that word and 
click. A window will be opened, overlaying the current window. In the new 
window, the information will immediately be displayed. Once this support 
information has been reviewed, press SPACE (or ESC) once to close the window 
and return to your original screen. If you are not using a mouse, please use 
the P3 and F4 function keys (marked Select and View) as indicated at the 

bottom of the screen. (See Figure 1). The F3 key allows you to select the 

different hypertext topics. Once the desired topic is selected (i.e. high- 
lighted), the F4 key calls the background information for view. 

Multiple page displays are indicated by the Page 1 of 2 message at the 
lower right of the screen. To navigate through multiple screen displays, 
please use the Page Up and Page Down keys to scroll either forward or backward 
through the pages. 

For help at anytime throughout the APET application, press the FI key. 
This will retrieve location sensitive help information, and may be called from 
the system or system-called edit screens. This will be the method by which 
assistance information will be retrieved throughout this application. 

APET has been designed as a menu-driven software package. This means 
that any function required of the user can be activated via a menu option. 

This includes exiting the system. It is strongly recommended that the user 
always "back out" of the application by using the appropriate menu options, 
i.e. "Return to Previous Menu". An option does exist to exit from any point 
in the application by selecting F10. It is not recommended that this be used 
from inside a question/answer section of the application. The F10 command 
causes an immediate exit from the program, without checking to ensure that 
open files have been properly saved. Therefore, the user may experience data 
loss if the application is exited in this manner. 

After the installation and initial use of the APET software, future 
systems will be initiated by going to the C : \ GARDEN subdirectory and typing 
PLAN. This will activate the software and present the opening menu. (See 
Figure 2 ) . 

Due to the hypertext capabilities of the APET software, a large amount of 
RAM (random access memory) is required. Because of the heavy RAM demand, 
proper execution of the software requires no other software package be running 
simultaneously with the APET software. Whenever the available RAM becomes too 
little for the application, an "Insufficient Memory" message will be shown at 
the bottom right of the screen. To alleviate this situation, simply get out 
of APET and reboot the system. This will usually free up all available RAM 
and ensure proper execution. (See Helpful Hints for further instruction.) 
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- "Automated_Payload_Experiment_Toor 

So you want to fly on the Shuttle. 

Well before you can, we must get a little information about 
your experiment and its objectives. 

If you have flown with us in the past, you may remember a substantial 
amount of paper documentation was required. This application, the 

HHHHHHHHHHHBHHHi designed to alleviate much 
of the burden on [experiment [ preparation by utilizing a |hypertext j 
knowlegde-based system. This system can be used to prepare one of our 
support documents, the Project Plan, which describes the overal plan 
for proceeding with a project. 

Press SPACE to continue. 


FI HELP 

F3 Select 


Pg 1 of 1 

Space Cont. 

F4 View 

F8 DOS 

F10 Quit 


Figure 1 

Sample Screen Layout Using Hypertext 
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"Automated_Payload_Experiment_Tool" 


Please select the activity or your choice, or choose Exit 
to leave the system. 


How to use the System 
Project Selection 
Project Plan (Overview) 
Glossary/Acronyms 
Print Glossary/Acronyms 
Exit System 




l 

FI HELP 

F8 DOS 

F10 Quit 


Figure 2 

Opening APET Main Menu 
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3.0 USING THE APEX SYSTEM 


3 . 1 How to Uae the System 

Because the use of a hypertext tool may be a new experience, a brief on 
line tutorial is provided with APET. To use this tool, please choose option 
one on the opening menu entitled "How to Use the System". To select this 
option, point with the mouse to the phrase and click. If not using a mouse, 
use the arrow keys to highlight the option and press RETURN. You can tell 
when an option has been selected because it (the phrase or word) will be 
highlighted differently from all other options. As the mouse is moved to 
other options, each in turn will be highlighted. 

Once the "How to Use the System" option has been selected, a different 
screen will be presented with a brief overview of hypertext and the methods 
of selecting topics. (This overview is much the same as appears in Section 
2.4 of this user's guide.) Practice selecting topics and moving from one 
screen to another using either the mouse or the appropriate keyboard function 
keys. 


3.2 Project Selection 

The APET software package will accommodate one or more experiments for 
the user. However, each experiment must be identified by a short (8 charac- 
ters or less) name, which must conform to the naming convention used by the 
DOS computer operating system. Briefly, these rules state that a DOS name 
cannot be over 8 characters in length, and must contain a combination of 
either letters, numbers, or the underscore (_) character. Any other special 
keys, including the SPACE, are prohibited. The rationale behind this naming 
convention is to allow storage of data files for each experiment in a subdi- 
rectory for that specific experiment. For example, if a user is working on 
two experiments, identified as THINFILM and HIPROTEN, then there would be a 
subdirectory for each. The configuration of these files would be as follows: 

Root Di rectory Application Directory Experiment Directory 

C: \ GARDEN\ THINFILM 

HIPROTEN 

Therefore, all data files containing answers for the APET questions for the 
experiment THINFILM would appear in the subdirectory THINFILM. If additional 
ex per iment s are required, the user would identify the new experiment and an 
additional subdirectory would be added. 

Figure 3 shows the menu for selecting, adding, or deleting an experiment 
project. In the example, the experiment APCGF has been previously defined by 
the user. If the user wants to work on this experiment, he simply points and 
clicks on this selection. (This would be the condition in a majority of the 
cases, since most Principal Investigators will have only one active experiment 
at any given point). However, if another experiment is required, the user 
would click on "ENTER A NEW PROJECT " . The user would be prompted to identify 
the new experiment, and would immediately be passed into the APET system, 
where information regarding that experiment would be addressed. 
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"Automated_Payload_Experiment_Tool H 


Please select the project of your choice, or enter a new 
project. 

APCGF 

ENTER A NEW PROJECT 
DELETE AN OLD PROJECT 
RETURN TO MAIN MENU 


1 1 


1 

FI HELP 

F8 DOS 

FI 0 Quit 


Figure 3 

Project Selection/Identification Menu 
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If a user wishes to delete an experiment, along with all its associated 
data files, he may do so by selecting the "DELETE AN OLD PROJECT" option from 
the menu. However, there is no recoverable procedure to undelete a project. 
Therefore, the user is strongly advised to use this procedure with caution. 

3.3 Project Plan Overview 

The third selection from the APET Main Menu is the "Project Plan Over- 
view". This option should be selected when the user wishes to see an overview 
of the Project Plan document, along with brief explanations of the information 
to be covered in each section/subsection of the document. For an additional 
overview of the topics to be addressed in the Project Plan, see Appendix A of 
this document. 

3.4 Glossary /Acronyms 

A number of NASA specific terms, definitions, and acronyms will appear as 
support material throughout the documentation process. One of the primary 
advantages of using a hypertext-based tool is to allow for easy and immediate 
retrieval of these terms. 

Option number four from the APET Main Menu allows the user to retrieve a 
listing of these terms, and presents them in a form analogous to a glossary in 
a book. To view a definition, highlight the desired term and click. A term 
can be highlighted by using the mouse to move the cursor to that word, or by 
using the F3 key for selection. To view the definition, the user should 
either click the mouse or press the F4 key. The definition of that word/term 
will be presented. Should the definition contain a term that requires further 
description, highlight that word and click. The new definition will overlay 
the previous definition. This method can be repeated as long as further 
definitions exist and the memory capacity of the machine is not exceeded. 

Please note that the glossary consists of multiple pages. Remember to 
navigate through the multi-page displays by using either the Page Up/Page Down 
function keys. 

3.5 Print Glossary /Acronyms 

Option number five from the APET Main Menu activates a routine for the 
printing of the glossary/acronym list, as discussed in 3.4. Because the 
output of this selection will be a multi-page document, the use of this option 
will be rare. 

3.6 Filling Out the Project Plan 

To fill out the Project Plan, the user must first select "Project Selec- 
tion" from the APET Main Menu. Then the Project Selection/ Ident if ication Menu 
(Figure 3) will be presented for the user to identify either a new project or 
select an existing project. Once the selection/identif ication has been made, 
the Project Plan Activity Menu (Figure 4) will be presented. Please note that 
the selected project is shown on the upper right corner of the screen. Please 
be sure that the project shown is the one you wish to work. 
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The Project Plan Activity Menu presents eleven options for the user. The 
most significant of these is the first: "FILL OUT DOCUMENTATION". The selec- 

tion of this option will present the Fill Out Project Plan Documentation Menu 
(Figure 5). This menu offers the user two primary options: "ENTER PROJECT 

INITIALIZATION INFORMATION" and "COMPLETE PROJECT PLAN". 

3.7 Entering Project Initialization Information 

Under most circumstances, the first information entered by the user into 
the APET system is the project initialization information. To enter this 
information, selection one from the Fill Out Project Plan Documentation Menu 
is chosen. This information is used to identify certain aspects of the ex- 
periment, and will be used throughout the documentation process. Entries 
include the PI name, his organization, address, city, state, zip, phone, and 
experiment title. This information will be provided in the form of type 
written responses to user prompts. For example, the user will be asked: 

Please enter your first and last names, i.e. Dr. John Doe. 

The user should respond with a one line response. (If there is a limitation 
on the length of this one line response, the screen display will provide an 
instruction, such as "Please limit your response to 16 characters.") This 
will be the format of user entries throughout the APET application. When the 
user is prompted to make an entry, the response should be on one line. When 
the user responds with a RETURN, the answer is stored and the next question, 
if one exists, is asked. Once all questions for that section have been an- 
swered, the answers are written to a data file. 

In the "Project Initialization Information" subsection, the only varia- 
tion in the user prompt/one line response routine is with the experiment 
title. Because experiment titles can be several lines, the user is given a 
prompt and immediately sent to the APET editor. This editor is a small ver- 
sion of a word processor, with many of the functions of a common word process- 
ing package. The commands used in the APET editor are similar to those in the 
software package WORDSTAR. To see the commands available, press the FI func- 
tion key from inside the editor. A separate window will be opened and will 
overlay the current screen. From there, page down until the function you wish 
to perform is shown. The one-to-two keystroke command to accomplish the task 
will be shown. (Note: The symbol (~) represents the CONTROL key., i.e. ~KQ 

means to hold the CONTROL key down while pressing the letter K, then press the 
letter Q. ) When the user is finished entering the answer into the editor, he 
may exit by pressing the ESC (escape) key. A message will then appear on the 
screen that tells the user what file name is being saved. Respond with a 
RETURN to accept this name and save the answer, or an ESC to cancel the an- 
swer. 

Important: Do not change the file name when the APET software asks if 

the name is acceptable. Future sessions that allow the user to change, del- 
ete, print, or display the Project Plan answers require that these file names 
be used. Changing the file name will make the file either inaccessible or 
inappropriate. Therefore, always accept the file name as given. 
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Automated_Payload_Experiment_Tool" 


The project you have selected is: APCGF 
Please enter your choice of activities from the list. 


FILL OUT DOCUMENTATION 

PRINT PROJECT PLAN 

DISPLAY PROJECT PLAN 

DETERMINE IF PROJECT PLAN IS COMPLETE 

BASELINE DOCUMENT 

COMPARE BASELINE TO CURRENT REVISION 

COPY ASNWERS TO DISK 

RETURN TO PREVIOUS MENU 

RETURN TO MAIN MENU 

EXIT SYSTEM 





1 

FI HELP 

F8 DOS 

F10 Quit 


Figure 4 

Project Plan Activity Menu 
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"Automated_Payload_Experiment_Tool" 


Please select the activity you wish to perform on 
the APCGF project. 


Enter Project Initialization Information 

Complete Project Plan 

Return to Previous Menu 

Return to Main Menu 

Exit System 


FI HELP 




F8 DOS 

FI 0 Quit 


Figure 5 

Fill Out Project Plan Documentation Menu 
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3,8 Complete Project Plan 


To complete the Project Plan document, the user must answer a series of 
questions about the experiment, (For an outline of the topics to be ad- 
dressed, see Appendix A,) A sample question from the Project Plan is shown in 
Figure 6. 

The questions are grouped into topics, a list of which is presented to 
the user. The user is asked to select the topic which is to be addressed. 

The chosen topic will be displayed, along with either its accompanying ques- 
tion or the subtopics covered within that section. If the user chooses to 
fill out one of the subsections, he will be prompted to select from a list. 
Upon subheading selection, a brief prompt, along with any necessary instruc- 
tions for answering the question, will be displayed. 

Each question in the Project Plan will invoke the editor. Answers 
should be given in the form of short narratives, consisting of one or more 
paragraphs of text. Sufficient space will be given to write as much (or 
little) as required. A sample of this procedure is shown in Figures 7 thru 
10 . 


Some of the topics have accompanying illustration( s) in order to give 
the user a better understanding of what information is needed. If you wish 
to view the illustration, simply click on, or select, the appropriate phrase. 
This will cause the screen to momentarily go blank, and the illustration will 
then be presented. After you have viewed the illustration, press SPACE and 
the program will return you to your original screen. 

3.9 Printing the Project Plan 

The user has two methods available to generate output from the APET 
software. These include either printing the document or displaying the docu- 
ment to the screen. The APET application was designed to be flexible enough 
to go to a variety of printers. As with most output, the best results will be 
with the use of a laser printer. If a laser printer is not available, the use 
of a dot-matrix printer will also be acceptable. A variety, although not 
nearly exhaustive, of dot-matrix printers have been tested with the APET 
software, and all have performed well. 

If the document has previously been baselined (discussed later in sec- 
tion 3.12), then a menu will appear giving the user the option of printing the 
document from the baselined version, the current revision, or neither version. 
If the neither option is chosen, then it is assumed that the user does not 
want the document printed, and the program will automatically return to the 
previous menu. If the baseline option is chosen, then the document will be 
printed from the version of the document which the user is currently revising. 
If the document has not been baselined, then the document will be printed from 
the current version. 

The printing of the Project Plan can be accomplished in either of two 
methods. First, the user may choose the section to be printed. This is 
recommended for a document that is in process. Once the entire Project Plan 
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"Automated_Payload_Experiment_Tool" 

i— 4.0 Content 

|— 4.1 Introduction “ 

Please describe the relevance of the investigation and provide 
a summary rationale as to why a flight experiment is required 
(limit to one printed page). 


_ C:\GARDEN\APCGF\PPE4_1.DAT 


THIS IS WHERE YOUR ANSWER GOES. 


FI HELP 


cor Cv 


F8 DOS FI 0 Quit 


Figure 6 

Sample Project Plan Question Screen 
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has been completed, the user can generate the document in its entirety An 
xna-tial j^g. ejeCt Wil1 n0rmally (depending on printer type) advance a blank 
sheet of paper before the cover sheet is printed- This will be followed by a 
second page advance, then page one of the document will be printed, followed 
y two, three, etc. through the end of the document. Because there are often 

ta f le !' ® tC ' that mUSt ** inserted within the textual document, no 
table of contents is printed. Because of the limitation of graphics support, 
it is suggested that all externally generated graphic illustrations, tables, 
etc. be provided in an appendix, with appropriate references throughout the 


the Print Procedure is active, a message will appear in the lower 
left of the screen. No other activities may take place while the document is 
printing. In case the printer runs out of paper, an error message will ap- 
pear. Reload paper in the printer and press the SPACE key to continue. 

3.10 Di splaying the Project Plan 

. . . Th ® 8econd method of generating output using APET is to display sections 
of the Project Plan to the screen. The Project Plan is divided into four 
ma D or sections. Content (Section 4) is subdivided into nine subsections, with 

thTcaLbilS 8U 5 8e< * io " a further divided. (see Appendix A). The user has 

L V selecting a section and seeing the identical output as would 
2? lf dOCUment was Printed. Displaying the Project Plan is recommend- 
ed to quickly review answers, especially during the development phase of 
document preparation. 

. . “ the document has Previously been baselined (discussed later in sec- 

-K 0n ^ 3 ‘ 12) ' th8n 8 menU Wil1 appear giving the user the option of displaying 
the document from the baselined version, the current revision, or neither 
version, if the neither option is chosen, then it is assumed that the user 
doe. not want th. document displayed, and the proaram will automatically 

“Vf r *’ ious I£ th » b»..li„. option ia cho.en, then the docu- 

ment will be displayed from the version of the document which the user is 

wlfrol " th * d ° C "“ nt »“ "°<= baselined, then th. document 

displayed from ‘the current version. 

note *!!! f r ° jGCt !J an 8ections wil1 require multiple page displays. Please 

llllt ^ V ^ W th * equivalent of ^ entire printed page, there will be at 
least three and usually four screen displays. Use the Page Up/Page Down 

method to move up or down in the document. Once a page is adequately re- 
viewed press the SPACE key to retrieve the next page in sequence. To abandon 
a display at any time, press the F10 key. 

1 11 — Determining if Project Plan is Complete 

To aid in the logical completion of the Project Plan, APET provides the 
user with th. sbility of -Det.rminin, if Project Pl.n is ^lete- £ s“ 
lecting this option, the user activates a routine that checks for the exist- 

missinf d t fil6S Created as ans wers to the Project Plan questions. The 

missing data files are analyzed to determine which sections have not been 
answered, and a listing is displayed to the screen. 
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3.12 Baselining a Document 

At some point in the documentation procedure, the Project Plan will be 
considered complete and released to external offices, agencies, organizations, 
etc. When this occurs, that version of the document is considered the base- 
line, and should be easily identified as such. 

To aid in the process of maintaining separate versions of the Project 
Plan, an option exists to baseline the current version of the document. (See 
Figure 11) . The selection of this option will cause a replica of the current 
version’s answers (or data files) to be copied to a new subdirectory for that 
experiment. This new subdirectory will be called BASELINE. From that point, 
all additional editing will transpire on a new version of the answers, while 
the baselined version of the answers will remain intact. The generation of 
output will require the user to identify which version (baseline or current 
revision) he wishes to access* 


3.13 Comparing a Baseline to the Current Revision 

Once the document has been baselined (See Section 3.12)/ the user may 
wish to compare this baseline with the current revision. APET provides a 
mechanism to accomplish this task. By selecting the option "Compare Baseline 
to Current Revision", a DOS routine will be invoked to compare all identical 
data files from the current revision to the baseline document. This compari- 
son generates a file that can then be displayed or printed, so that a quick 
review will show which answers have been modified since the original baseline 
date. 


3.14 Copying Answers to Disk 

The final output option provided by APET is the creation of files that 
contain all data generated by the software. This can be used as either a 
backup mechanism during the creation of the files, or as a means of submission 
of the final document instead of a hard copy/printed document. By submitting 
the answers on diskette, the receiving party can have direct access to the 
answers in the same manner as would the sender. These files are not formatted 
as an ASCII file, and should not be confused with the final report output. 

The user will have the option of selecting either the baseline document 
or the current revision. After this selection, the user is asked to select 
drive to receive the backup (either A:,B:,C:, or D:). A DOS copy command 
will then be invoked to copy all files to the selected drive. 
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H Automated_Payload_Experiment_Tool" __ 

- Complete Project Plan 

Which section do you wish to address? 

1 .0 General 

2.0 Preparation and Approval 

3.0 Changes 

4.0 Content 

Return to Previous Menu 


FI HELP 




F8 DOS 

F10 Quit 


Figure 7 

Project Plan List of Sections 
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"Automated_Payload_Experiment_Toor 

_ 4.0 Content 

Which section would you like to complete? 


Introduction 

Objective 

Science Requirements 
Technical Plan 
Implementation Plan 
Management Plan 
Schedule 
Cost Control Plan 
Project Reviews and Meetings 
Return to Previous Menu 


FI HELP 




F8 DOS 

F10 Quit 


Figure 8 

Project Plan Section Selection 


17 




— "Automated_Payload_Experiment_Tool' 
4.4 Technical Plan 


The outline for the Technical Plan includes the 
following sections: 


EXPERIMENT HARDWARE DESCRIPTION 
PAYLOAD CLASSIFICATION 
DEVELOPMENT APPROACH 
TECHNOLOGY PLAN 
LOGISTICS 

ana^^7s°of mission’ results 3 and data manag ement 

FACILITIES 

SAFETY 

RETURN TO PREVIOUS MENU 


— 

FI HELP 

F8 DOS 

FI 0 Quit 


Figure 9 

Project Plan Subtopic Selection 
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"Automated_Payload_Experiment_Tool" 

r 3.0 CONTENT 

The Project Manager is responsible for updating 
a MSAD Project Plan when significant changes occur (such 
as changes in scope, organization, or roles and responsi- 
bilities). This does not apply to resources, schedules 
or manpower, which are updated through normal budgeting 
and project monitoring activities. The Project Manager 
will establish a change control process for maintaining 
the MSAD Project Plan and other project documentation. 

Press SPACE to continue 


FI HELP 


Pg 1 of 1 

Space Cont. 

F8 DOS 

F10 Quit 


Figure 10 

Project Plan Topic Narrative 
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M Automated_Payload_Experiment_Tool" 

At some point in the documentation process, it is necessary to 
declare that all documents are complete, and that any changes 
to be made will be treated as revisions to the baseline document. 

Do you want to baseline your answers at this time? 

YES 

NO 


1 

FI HELP 

F8 DOS 

F10 Quit 


Figure 11 
Baseline Menu 






4 . 0 HELPFUL HINTS 


1) Avoid the use of the F10 key to exit from within the APET application. It 
is a better practice to back out of the APET system through the use of the 
menus. By doing so, the user ensures that all answers are properly recorded 
to the disk drive. Use of the F10 key from within the APET application will 
allow the user to exit but will not automatically save information generated 
during the session. 

2) APET does not support the insertion of externally generated graphics, 
tables, equations, or other non-text material. To alleviate this problem 
without the added labor of using a secondary word processor, it is suggested 
that any such material be included in an Appendix, and referenced in the text 
generated in APET. 

3) To insert an externally generated text file into the text area in the APET 
editor, use the command ‘KR from within the editor. This is one of a variety 
of commands that can be used from the APET word processor. To see all avail- 
able commands, press the FI key from inside the editor and page through the 
instruction set. 


4) The APET editor uses a word wrap routine that automatically wraps the text 
to the next line (a common word processing feature). It also maintains verti- 
cal alignment along the left margin. If you use indented paragraphs, please 
be sure that the line after the indented line begins in the column you desire. 
To do this, use the backspace key to move the first word in the line to the 
column desired. The recommended solution to this problem is not to indent 
paragraphs, but instead insert a blank line between each paragraph. 


5 » xf your computer system is configured to automatically load WINDOWS or 
some other application package, it may be necessary to alter the AUTOEXEC.BAT 
file (located in the boot drive). Instructions for changing the automatic 
load of an application will vary by computer. One of the easier methods is to 
edit the AUTOEXEC.BAT file and remove the line that calls the package. For 
example, WINDOWS is called by the command WIN. By preventing these packages 
from loading, a significant amount of RAM is freed and allowed for use by 

APET. 




APPENDIX A 


Project Plan Topic Outline 



1.0 


INTRODUCTION 


2.0 PREPARATION AND APPROVAL 

3 . 0 CHANGES 

4 . 0 CONTENT 

4 . 1 Introduction 

4.2 Objective 

4 . 3 Science Requirements 

4.4 Technical Plan 

4.4.1 Experiment Hardware Description 

4.4.2 Payload Classification 

4.4.3 Development Approach 

4.4.4 Technology Plan 

4.4.5 Logistics 

4.4.6 Mission Operations, Training and Data Management 

4.4.7 Analysis of Mission Results 

4.4.8 Facilities 

4.4.9 Safety 

4 . 5 Implementation Plan 

4.5.1 Implementation Approach 

4.5.2 Summary Work Breakdown Structure 

4.5.3 Documentation 

4 . 6 Management Plan 

4.6.1 Project Management Responsibilities and 
Organization 

4.6.2 Mission Management Responsibilities and 
Organization 

4 . 7 Schedule 

4.8 Cost Control Plan 
4.8.1 Resources 
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4.8.2 Cost Control Guidelines 


4.8.3 Cost Reporting Control Structure 

4 . 8 . 3 . 1 NASA Reports 

4 . 8 . 3 . 2 Contractor Reports 

4.8.4 Cost Control Strategy 
4.9 Project Reviews and Meetings 

4.9.1 Internal Reviews 

4.9.2 External Reviews 

4.9.3 Design and Readiness Reviews 
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appendix b 

APET Editor Commands 



MOVING THE CURSOR: 


"D . 
"S . 
"A . 
~F . 
"I . 
~E . 
"X , 

~w < 
~z . 

~R , 
~C . 
~QS 
*QD 
"QE 
~QX 
~QR 
~QC 
~QB 
~QK 


Left One Character 
Right One Character 
Left One Word 
Right One Word 
Tab 

Up One Line 
Down One Line 
Scroll Up 
Scroll Down 
Page Up 
Page Down 

Beginning of a Line 
End of a Line 
Beginning of a Page 
End of a Page 
Beginning of the File 
End of the File 
Beginning of Marked Block 
End of Marked Block 


DELETING AND INSERTING TEXT: 

~G 

~H 



~ Y 

QX 

~KY 

"V 

"N 


Delete Character Under Cursor 
Delete Character to Left of Cursor 
Delete Next Word 
Delete a Line 

Delete to the End of a Line 
Delete a Marked Block 
Insert On/Off 
Insert a Line 


BLOCK COMMANDS: 

~KS 

"KB 

~KK 

~KH 

~KC 

"KV 

~KY 

~KR 

~KW 

~KP 


Save This File 
Mark Beginning of Block 
Mark End of Block 
Hide/Display Block 
Copy a Block 
Move a Block 
Delete a Block 
Read a Block from a File 
Write a Block to a File 
Print a Block or Entire File if no 
Block is Marked 


FORMATTING COMMANDS : 


~B 

~OR 

*QI 

~QW 


Reformat Paragraph 
Set Right Margin 
Toggle Autoindent Mode 
Toggle Word Wrap 


FIND AND REPLACE COMMANDS: 

~QA 

~QF 

~L 


Find and Replace a String 
Find an Occurrance of a String 
Find the Next Occurrence 



For assistance in using this software, 
or to offer suggestions or comments, 
please contact the following: 

Mr . Gary Maddux 
Ms . Anna Provancha 
Mr. David Chattam 

at (205) 895-6343, 
or write 


Systems Management and Production Laboratory 
Research Institute 
RI E-47 

The University of Alabama in Huntsville 
Huntsville, AL 35899 
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1 . 0 INTRODUCTION 


So you want to fly an experiment on the Shuttle. 

Well, to begin the process, we must get a little information about your 
experiment and its reguirements. 

If you have flown with us in the past, you may remember a substantial 
amount of paper documentation was required. This application, the Automated 
Payload Experiment Tool, is designed to alleviate much of the burden of the 
document preparation and maintenance process. This system can currently be 
used to prepare four of our support documents: the Science Requirements 

Document (SRD), which defines the science objectives, the Experiment Require- 
ment Document (ERD), which defines the experiment design/build requirements, 
the Project Plan, which is the basic planning document that describes the 
overall plan for proceeding with the project, and the Science Requirements 
Envelope Document. The version you have is for the completion of the Science 
Requirements Envelope Document only. 


2.0 DISCUSSION 

2 . 1 Background 

The Microgravity Experiment Projects (MEP) Office of the Payload Projects 
Office (PPO) at the Marshall Space Flight Center (MSFC) is currently responsible 
for collecting and coordinating experiment /facility specifications and require 
ments between NASA and various colleges, universities, research centers, and 
public- and private-sector organizations that are selected or are requesting to 
fly their respective experiments on NASA flights. This coordination involves 
the communication of flight hardware requirements and the preparation and 
review of all documentation between NASA and the research groups. To reduce 
difficulties encountered by these customers of NASA, an effort was undertaken 
to research, analyze, and evaluate the current procedures involved in the 
information gathering activities. 

The MEP Office identified a need to develop an Automated Payload Experi- 
ment Tool (APET) which would lead experiment developers through the develop- 
ment planning process, obtain necessary information, establish an electronic 
data exchange avenue and allow easy manipulation/reformatting of the collected 
information. In order to fulfill this need, the University of Alabama in 
Huntsville (UAH) was tasked to design and develop the APET software package to 
meet the increasing demands to lighten the burden of documentation preparation 
and maintenance. 

2.2 System Requirements 

The objective of APET is to provide an easy to use tool to the Principal 
Investigator (PI) team. To ensure ease of use, few computer hardware require- 
ments are necessary to operate the APET software package. 

APET is designed to run on any IBM-PC compatible personal computer. It is 
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recommended that the APET user install the software on a 386 PC or higher. 

The multiple screen windows, and the complexity of the system cause noticeable 
slowdowns on any machine less than the 386. 


The software requires that the PC be equipped with a hard disk drive. 
For proper execution, the hard drive (or some partition of it) roust be named 
C: . The Science Requirements Envelope version of APET will require approx- 
imately 1M of space on the hard drive for the system, plus another 1M on the 
hard drive for the data files created by the user. However, for optimal per- 
formance, the hard drive should have a total of at least 3M free upon in- 
stallation of the software. 


For ease of use, the PC should be equipped with a mouse. This, however, 
is not mandatory. APET utilises the hypertext technology, which offers a 
point-and-click user interface. Instead of a mouse, the user does have the 
option of pressing selected function keys to achieve the same effect. 

2 . 3 Installation 


The APET software package is provided on one 3 1/2" diskette. The files 
stored on this diskette have been compressed; therefore, it is required that 
the user follow several simple steps to ensure correct installation. 

1) Insert the 3 1/2" diskette in the drive designated as A:, if the A* 
drive on your system is not a 3 1/2" drive, then use the DOS ASSIGN command to 
redesignate the drives appropriately. (For example, if you have a 3 1/2" 
disk, but your 3 1/2" drive is B: , then at the DOS prompt type ASSIGN A: B: . ) 

2) From the A: drive type: 

VXNSXALL. 

This will activate the installation routine. A series of instructions and 
informational text will be presented. Each screen will advise what is tran- 
spiring in the installation procedure. The installation routine will create a 
subdirectory on the C: drive called GARDEN. Once created, the files contained 
on the installation disk will be copied to the directory C: \ GARDEN. Most of 
these files have been compressed to conserve disk space. An uncompress rou- 
tine will be invoked to return these files to their normal (and usable) condi- 
tion. To cancel the installation at any time, press the CTRL (control 1 C 
keys. ' 


3) Upon successful installation of the APET program files, the message 
INSTALLATION ROUTINE COMPLETE will be displayed. The APET application, run- 
ning under the direction of Knowledge Pro software, will be entered and you 
will be presented the opening menu. All subsequent sessions using the APET 
software may be initiated by going to the C:\GARDEN subdirectory and typing 
ENVELOPE 


2 . 4 Getting Started 

This application uses hypertext technology. Hypertext software systems 
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allow for the retrieval of related information at the point and click of a 
mouse or, if a mouse is not used, at the touch of one or two keystrokes. For 
information on a highlighted topic, just move the mouse to that word and 
click. A window will be opened, overlaying the current window. In the new 
window, the information will immediately be displayed. Once this support 
information has been reviewed, press SPACE (or ESC) once to close the window 
and return to your original screen. If you are not using a mouse, please use the F3 
and F4 function keys (marked Select and View) as indicated at the bottom of the 
screen. (See Figure 1). The F3 key allows you to select the different hypertext 

topics. Once the desired topic is selected (i.e. highlighted), the F4 key calls the 
background information for view. 

Multiple page displays are indicated by the Page 1 of 2 message at the 
lower right of the screen. To navigate through multiple screen displays, 
please use the Page Up and Page Down keys to scroll either forward or backward 
through the pages. 

For help at anytime throughout the APET application, select the FI key. 

This will retrieve location sensitive help information, and may be called from 
the system or system-called edit screens. This will be the method by which 
assistance information will be retrieved throughout this application. 

APET has been designed as a menu-driven software package. This means 
that any function required of the user can be activated via a menu option. 

This includes exiting the system. It is strongly recommended that the user 
always "back out" of the application by using the appropriate menu options, 
i.e. "Return to Previous Menu". An option does exist to exit from any point 
in the application by selecting F10. It is not recommended that this be used 
from inside a quest ion/ answer section of the application. The F10 command 
causes an immediate exit from the program, without checking to ensure that 
open files have been properly saved. Therefore, the user may experience data 
loss if the application is exited in this manner. 

After the installation and initial use of the APET software, future systems 
will be initiated by going to the C: \ GARDEN subdirectory and typing 
ENVELOPE. This will activate the software and present the opening menu. (See 
Figure 2). 

Due to the hypertext capabilities of the APET software, a large amount of 
RAM (random access memory) is required. Because of the heavy RAM demand, 
proper execution of the software requires no other software package be running 
simultaneously with the APET software. Whenever the available RAM becomes too 
little for the application, an "Insufficient Memory" message will be shown at 
the bottom right of the screen. To alleviate this situation, simply get out 
of APET and reboot the system. This will free up all available RAM and ensure 
proper execution. (See Helpful Hints for further instructions.) 
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"Automated_Payload_Experiment_Tool" — 

So you want to fly on the Shuttle. 

Well before you can, we must get a little information about 
your experiment and its requirements. 

If you have flown with us in the past, you may remember a 
substantial amo unt of paper documentation was requ ired. This 
application, the |Automated>Pavload^Experiment>Tool| , is designed 
to alleviate much of the burden of the document preparation and 
maintenance process by utilizing a |hypertext| , knowledge-based 
system. This sy stem can be used to prepare one of our sup port 
documents, the |Science Requirements Envelope Document] , which 
provides an envelope or volume of science requirements for a type 
of experimentation. 

Press SPACE to continue. 


FI HELP 

F3 Select 


j 

Pg 1 of 1 

Space Cont. 

F4 View 

F0 DOS 

F10 Quit 


Figure 1 

Sample Screen Layout Using Hypertext 
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"Automated_Payload_Experiment_Tool" 


Please select the activity of your choice, or choose Exit 
to leave the system. 


HOW TO USE THE SYSTEM 
PROJECT SELECTION 

SCIENCE REQUIREMENTS ENVELOPE DOCUMENT (OVERVIEW) 

GLOSSARY/ACRONYMS 

PRINT GLOSSARY/ACRONYMS 

EXIT SYSTEM 




FI HELP 




F8 DOS 

F10 Quit 


Figure 2 

Opening APET Main Menu 
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3.0 USING THE APEX SYSTEM 


3 . 1 How to Use the System 


Because the use of a hypertext tool may be a new experience, a brief on 
lrne tutorial is provided with APET. To use this tool, please choose option 
one on the opening menu entitled "How to Use the System". To select this 
option, point with the mouse to the phrase and click. If not using a mouse, 
use the arrow keys to highlight the option and press RETURN, you can tell 
when an option has been selected because it (the phrase or word) will be 
highlighted differently from all other options. As the mouse is moved to 
options, each in turn will be highlighted. 

Once the "How to Use the System" option has been selected, a different 
screen will be presented with a brief overview of hypertext and the methods 
of selecting topics. (This overview is much the same as appears in Section 
2.4 of this user's guide.) Practice selecting topics and moving from one 
screen to another using either the mouse or the appropriate keyboard function 


3.2 Project Selection 


The APET software package will accommodate one or more experiments for 
the user. However, each experiment must be identified by a short (8 charac- 
ters or less) name, which must conform to the naming convention used by the 
DOS computer operating system. Briefly, these rules state that a DOS name 
cannot be over 8 characters in length, and must contain a combination of 
either ietters, numbers, and the underscore (_) character. Any other special keys 
including the SPACE, are prohibited. The rationale behind this naming 
convention is to allow storage of data files for each experiment in a sub- 
directory for that specific experiment. For example, if a user is working on 
two experiments, identified as THINFILM and HIPROTEN, then there would be a sub- 
directory for each. The configuration of these files would be as follows: 


Root Directory Application Directory Experiment Dirgntr,T- Y 

C: \ GARDEN \ THINFILM 

HIPROTEN 

Therefore, all data files containing answers for the APET questions for the 
experiment THINFILM would appear in the subdirectory THINFILM. If additional 
experiments are required, the user would identify the new experiment and an 
additional subdirectory would be added. 


Figure 3 shows the menu for selecting, adding, or deleting an experiment 
project. In the example, the experiment APCGF has been previously defined by 
the user. If the user wants to work on this experiment, he simply points and 
clicks on this selection. (This would be the case in a majority of the cases 
since most Principal Investigators will have only one active experiment 
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"Automated_Payload_Experiment_TooP'- 



Please select the project of your choice, or enter a new 
project. 




APCGF 

ENTER A NEW PROJECT 
DELETE AN OLD PROJECT 
RETURN TO MAIN MENU 







FI 

HELP 

F8 DOS 

FI 0 Quit 


Figure 3 

Project Selection/ldentification Menu 




at any given point). However, if another experiment is required, the user 
would click on "ENTER A NEW PROJECT". The user would be prompted to identify 
the new experiment, and would immediately be passed into the APET system, 
where information regarding that experiment would be addressed. 

If a user wishes to delete an experiment, along with all its associated 
data files, he may do so by selecting the "DELETE AN OLD PROJECT" option from 
the menu. However, there is no recoverable procedure to undelete a project. 
Therefore, the user is strongly advised to use this procedure with caution. 

3.3 Science Requirements Envelope Document Overview 

The third selection from the APET Main Menu xs the "Science Requirements 
Envelope Document (Overview)". This option should be selected when the user wishes 
to see an overview of the Science Requirements Envelope Document, along with brief 
ex Pl3- n ®tions of the information to be covered in each section/ subsection of the 
document. For an additional overview of the topics to be addressed in the Science 
Requirements Envelope, see Appendix A of this document. 


3.4 Glossary /Acronyms 

A number of NASA specific terms, definitions, and acronyms will appear as 
support material throughout the documentation process. One of the primary 
advantages of using a hypertext-based tool is to allow for easy and immediate 
retrieval of these terms. 

Option number four from the APET Main Menu allows the user to retrieve a 
listinQ of these terms, and presents them in a form analogous to a glossary in 
a book. To view a definition, highlight the desired term and click. A term 
can be highlighted by using the mouse to move the cursor to that word, or by 
using the F3 key for selection. To view the definition, the user should 
either click the mouse or press the F4 key. The definition of that word/term 
will ha presented. Should the definition contain a term that requires further 
description, highlight that word and click. The new definition will overlay 
the previous definition. This method can be repeated as long as further 
definitions exist and the memory capacity of the machine is not exceeded. 

Please note that the glossary consists of multiple pages. Remember to navigate 
through the multi-page displays by using the Page Up/Page Down function keys. 

3 . 5 Print Glossary /Acronyms 

Option number five from the APET Main Menu activates a routine for the 
printing of the glossary/ acronym list, as discussed in 3.4. Because the 
output of this selection will be a multi-page document, the use of this option 
will be rare. 
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3.6 


Filling Out the Science R equirements Envelope Documen t 


To fill out the Science Requirements Envelope, the user must first select 
"Project ^Select ion" from the APET Main Menu. The Project Selection/Identif i- 
...L, Menu (Figure 3) will then be presented for the user to identify either 
nr P “"ect or - existing project, once the -election, identifies- 

tion has been made, the Science Requirements Envelope Activity Menu ( gu 
will be presented. Please note that the selected pro D ect is shown on the 
upper right corner of the screen. Please be sure that the project shown 

the one you wish to work. 

The science Peguirements Envelope Activity f 

far the user. The most significant of these is the tirst. 

TATION-. The selection of this option will present the Fill out science 

^iroptir 1 ^^™ 0 ;^^!^™ i^i-nc -Smpsete 

SCIENCE REQUIREMENTS ENVELOPE DOCUMENT . 

3.7 Fnterina Project Ini tialization Information 

Under most circumstances, the first information entered by the “ser into 
the APET system is the project initialization information. To enter this inf or 
mation selection one from the Fill Out Envelope Documentation Menu is chosen. 
?hls i^omltlon is used to identify certain aspects of the experiment, and will 
be used throughout the documentation process. Entries mclu e * ® 
organization, address, city, state, zip, phone, and experiment title. This 
information will be provided in the form of type written responses to user 
prompts. For example, the user will be asked: 

Please enter your first and last names, i.e. Dr. John Doe. 

The user should respond with a one line response. (If there is a 
on the length of this on. line response, the screen 

instruction, such as "Please limit your response to 16 characters. ) Thi 
will be the format of user entries throughout the APET application. When *he 
user is prompted to make an entry, the response should be on one me When 
the user responds with a RETURN, the answer is stored and the next que 
if one exists, is asked. Once all questions for that segment have been an- 
swered, the answers are written to a data file. 

in the "Project Initialization Information" subsection, the only varia- 
tion in the user prompt/one line response routine is with the experiment 
title. Because experiment titles can be several lines, the user is 9^en 
orompt and immediately sent to the APET editor. This editor is a small 
sion of a word processor, with many of the functions of a common word P ro <- e ®®“ 
ina package. The commands used in the APET editor are similar to those in the 
software package WORDSTAR. To see the commands available, press the F unc 
tlfn key ^rom Lside the editor. A separate window will be opened and will 
overlay the current screen. From there, page down until the fun ^^ n J° U 
to perform is shown. The one-to-two keystroke command to accomplish the task 
will be shown. (Note: The symbol (~) represents the CONTROL key., i.e. KQ 
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"Automated_Payload_Experiment Tool" 

The project you have selected is: APCGF 
Please enter your choice of activities from the list. 


FILL OUT DOCUMENTATION " 

ENVEL0PE document 

BaIelINE DOCUMENT ° F ENVEL0PE DOCUMENT 

c§pyTn!wer!to E d!s°k CURRENT REVIS,on 

RETURN TO PREVIOUS MENU 
RETURN TO MAIN MENU 
QUIT 



Figure 4 

Science Requirements Envelope 
Document Activity Menu 
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"Automated_Payload_Experiment_Toor 


Please select the activity you wish to perform on 
the APCGF project. 


Enter Project Initialization Information 

KQomplete Science Requirements^Envelope. Documentl 
Return to Previous Menu 
Return to Main Menu 
Exit System 


FI HELP 




F8 DOS 

FI 0 Quit 


Figure 5 

Fill Out Science Requirements 
Envelope Document Menu 
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means to hold the CONTROL key down while pressing the letter K, then press the 
letter Q. ) When the user is finished entering the answer into the editor he 
may exit by pressing the ESC (escape) key. A message will then appear on 
the screen that tells the user what file name is being saved. Respond with a 

RETURN to accept this name and save the answer, or an ESC to cancel the an- 
swer . 


Important: Do not change the file name when the APET software asks if 

the name is acceptable. Future sessions that allow the user to change, del- 
ete, print, or display the Science Requirements Envelope answers require that 
these file names be used. Changing the file name will make the file either 
inaccessible or inappropriate. Therefore, always accept the file name as 


3,8 Complete Scie nce Requirements Envelope Dnrumant- 

To complete the Science Requirements Envelope Document, there are usually 
between 30 - 39 questions that must be answered. These answers will be in the 
form of short narratives, consisting of one or more paragraphs of text. Each 
question or user prompt will invoke the APET editor and give the user suffi- 
cient space to write as much (or little) as required. (For an outline of the 
topics to be addressed, see Appendix A.) A sample question scenario from the 
Science Requirement Envelope is shown in Figures 6-9* 

The Complete Science Requirement Envelope Document session begins by 
asking the user if he has b, n to fill out the Science Requirements Envelope 
Documentpreviously A * NO ' response causes the questions to be asked in sequence. 
A YES response displays the question topics in a list. If questions are to be 

screen & llSt WiU ******* * a * windo " that overlays the question 

screen. The user is expected to point-and-click on the appropriate topic. (if not 

using a mouse, use the arrow keys to select and press RETURN. ) The user should 
click on the appropriate answer with the left-side mouse button. 

with 1 " itial S = ience Requirements Envelope session, the user would respond 

with a NO and proceed to the questions. These questions will be asked in the same 

sequence as is shown in the outline. After each response, the user will be IsLTTf 

session 8 h° C ° nt ^ nU ® t0 the next «“ e » tion - This gives the user a chance to end the 

Thet ti t K eSirea ; rather than advancin 9 through all the remaining questions. 
The title of each question screen will include the number of the question (i. e. 

accord ' 1 V Thl ‘ an °”' th ‘ “ “ e ” her * h * 18 iB the ^ 


If the user responds with a 'YES 1 , which means there has been 
session, the following question will appear: 


a previous 


Do you wish to change only one item, resume at a point 
and continue sequentially through the remainder of the 
Envelope Document, or complete all topics previously unanswered? 

This allows the user one of three options. 1) He may select the one 
answer that needs changing, go directly to that answer and change it, then 
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"Automated_Payload_Experiment_Toor 


Have you already begun to fill out the Science Requirements 
Envelope Document in a previous session? 


NO 


FI HELP 


F8 DOS 


FI 0 Quit 


Figure 6 

Science Requirements Envelope Document 
Previous Session Menu 
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*Automated_Payload_Experiment Tool" 


Do you wish to change only one item, resume at a point 
and continue sequentially through the remainder of the 

unans 0 wlred? CUment COmple,e aN tp P ics Previously 




UHANUfc AND CONTINUE 
COMPLETE UNANSWERED TOPICS 
QUIT 




Figure 7 

Science Requirements Envelope Document 
Question Completion Menu 
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'Automated_Payload_Experiment_Tool" 


r Change and Continue 

With what subtopic do you wish to resume your activity? 


FI HELP 


uamdaaaaaaaiiiHiEMaaaaM ■ ■ i 


Scientific Knowledge to be Gained 

Value of Knowledge to Scientific Field 

Necessity for Space Environment 

Description of Scientific Field 

Current Applications for Research 

Account of Prior Research 

Current Research 

Relationship to Scientific Field 

Anticipated Advance 

Limitations of Ground-Based Testing 

Limitations of Drop Towers 

Limitations of Testing in Aircraft 

Need for Accommodations in the Shuttle 

Limitations of Mathematical Modeling 

Limitations of Other Modeling Approaches 

<Page 1 of 3> 


Figure 8 

Science Requirements Envelope Document 
Topic Selection Menu 
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— "Automated_Payload_Experiment_Toor __ 

Description of Experiment Type or Class (Question 1 of 39) 

Please enter a narrative description of the type or class 
of the experiment. This topic is also addressed under 
the heading "Experiment Procedures to be Used" and 
"Description of Type of Experiments". 

Press the RETURN key to enter the editor, 

I C:\GARDEN\APCGF\ENV1J.DAT - 


ENTER TEXT HERE. 


FI HELP F3 Select D 

Page 

Space Cont. F4 View F8 DOS F10 C 


Figure 9 

Sample Science Requirements Envelope Document 

Question 
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record that answer to disk. 2) He can select the topic where he would like 
to resume his activities, answer that question, record the answer, and go to 
the next question in sequence. This gives the user the capability of select- 
ing the 20th question, and proceed sequentially through the remaining 19 ques- 
tions. 3) The user can complete all questions that have not yet been an- 
swered. This option will invoke a command to look at what answers (files) do 
not exist, and build a list of these topics. The user then selects the topic 
to answer, answers the question, records the answer, and goes to the next 
question of his choice. With each recorded answer, that topic is removed from 
the list. 


3.9 Printing the Science Requirements Envelope Document 

The user has three methods available to generate output from the APET 
software. These include printing the document, displaying the document, and 
creating an ASCII file of the document. The APET application was designed to 
be flexible enough to go to a variety of printers. As with most output, the 
best results will be with the use of a laser printer. If a laser printer is 
not available, the use of a dot-matrix printer will also be acceptable. A 
variety, although not nearly exhaustive, of dot-matrix printers have been 
tested with the APET software, and all have performed well. 

If the document has previously been baselined (discussed later in sec- 
tion 3.12), then a menu will appear giving the user the option of printing the 
document from the baselined version, the current revision, or neither version. 

If "Neither” is chosen, then it is assumed that the user does not want the 
document printed, and the program will automatically return to the previous 
menu. If "Baseline” is chosen, then the document will be printed from the 
file which is in the project's Baseline subdirectory. If the current revision 
option is chosen, then the document will be printed from the version of the 
document which the user is currently revising. If no baselined version of the 
document exists, then the document will be printed from the current revision. 

The Science Requirements Envelope Document is divided into six sections. Each 
of these section can be printed individually if the user wishes, or the document can 
be printed in its entirety. If the option to print the entire document is chosen, 
an initial page eject will normally (depending on printer type) advance a blank 
sheet of paper before the cover sheet is printed. This will be followed by a second 
page advance, then page one of the document will be printed, followed by two, three, 
etc. through the end of the document. Because there are often graphics, tables, 
etc. that must be inserted within the textual document, no table of contents is 
printed. Because of the limitation of graphics support, it is suggested that all 
externally generated graphic illustrations, tables, etc. be provided in an appendix, 
with appropriate references throughout the document. If one of the document's 
sections is chosen to be printed individually, a blank page will be ejected, fol- 
lowed by the desired section. 

While the print procedure is active, a message will appear in the lower 
left of the screen. No other activities may take place while the document is 
printing. In case the printer runs out of paper, an error message will ap- 
pear. Reload paper in the printer and press the SPACE key to continue. 
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3 . 10 Displaying the Science Requirements Envelope Document 


The second method of generating output using APET is to display sections 
of the Science Requirements Envelope to the screen* The Science Requirements 
Envelope is divided into six major sections, with each divided into one or 
more subsections (see Appendix A)* The user has the capability of selecting a 
section and seeing the identical output as would appear if the document was 
printed. Displaying the Science Requirements Envelope is recommended to 
quickly review answers, especially during the development phase of document 
preparation. 

As stated in Section 3.9, if the document has previously been baselined 
then a menu will appear giving the user the options for displaying the docu- 
ment from the baselined version, the current revision, or neither version. If 
"Neither 1 * is chosen, then it is assumed that the user does not want the docu- 
ment displayed, and the program will automatically return to the previous 
menu. If "Baseline" is chosen, then the document will be displayed from the 
file which is in the project's Baseline subdirectory. If "Current Revision" 
is chosen, then the document will be displayed from the version of the docu- 
ment which the user is currently revising. If no baselined version of the 
document exists, then the document will be displayed from the current revi- 
sion. 


Most Science Requirements Envelope Document sections will require multi- 
ple page displays. Please note that to view the equivalent of an entire 
printed page, there will be at least three and usually four screen displays. 
Use the Page Up/Page Down method to move up or down in the document. Once a 
page is adequately reviewed, press the SPACE key to retrieve the next page in 
sequence. 


3.11 Create an ASCII File of Science Requirements Envelope Document 

The APET software does not have the ability to generate or insert graph- 
ics, charts, etc. that were created in some other application. This is pri- 
marily due to the memory size limitations of the computer. However, to alle- 
viate this limitation, APET does have the ability to generate an ASCII file of 
the Science Requirements Envelope Document's output. After choosing this op- 
tion, the user need only type in the full file name (includes drive, file 
name, and extension). The file will then be created as a replica of the 
printed output. 

The benefit of creating an ASCII text file of the Science Requirements 
Envelope is in providing the user with the capability of enhancing the final 
printing by inserting graphics, photos, tables, equations, or other difficult 
to create figures. In addition, different fonts, font sizes, and special 
effects can be used to dress up the final printed output. 


18 


3.12 Baselining a Document 


At some point in the documentation procedure, the Science Requirements 
Envelope will be considered complete and released to external offices, agen- 
cies, organizations, etc. When this occurs, that version of the document is 
considered the baseline, and should be easily identified as such. 

To aid in the process of maintaining separate versions of the Science 
Requirements Envelope, an option exists to baseline the current version of the 
document. (See Figure 10) The selection of this option will cause a replica 
of the current version’s answers (or data files) to be copied to a new subdi- 
rectory for that experiment. This new subdirectory will be called BASELINE. 
From that point, all additional editing will transpire on a new version of the 
answers, while the baselined version of the answers will remain intact. The 
generation of output will require the user to identify which version (baseline 
or current revision) he wishes to access. 

3.13 comparing a Baseline to the Curr ent Revision 

Once the document has been baselined (See Section 3.12), the user may 
wish to compare this baseline with the current revision. APET provides a 
mechanism to accomplish this task. By selecting the option "Compare Baseline 
to Current Revision", a DOS routine will be invoked to compare all identical 
data files from the current revision to the baseline document. This compari- 
son generates a file that can then be displayed or printed, so that a quick 
review will show which answers have been modified since the original baseline 
date. 


3.14 Copying Answers to Disk 

The final output option provided by APET is the creation of files that 
contain all data generated by the software. This can be used as either a 
backup mechanism during the creation of the files, or as a means of submission 
of the final document instead of a hard copy/printed document. By submitting 
the answers on diskette, the receiving party can have direct access to the 
answers in the same manner as would the sender. These files are not formatted 
as an ASCII file, and should not be confused with the final report output, 
which can be created using the "Create ASCII File of the Science Requirements 
Document" (discussed in Section 3.11). 

The user will have the option of selecting either the baseline document 
or the current revision. After this selection, the user is asked to select 
the drive to receive the backup (either A:,B:,C:, or D:). A DOS copy command 
w ill then be invoked to copy all files to the selected drive. 
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“Automated_Payload_Experiment_Toor 


At some point in the documentation process, it is necessary to 
declare that all documents are complete, and that any changes 
to be made will be treated as revisions to the baseline document 

Do you want to baseline your answers at this time? 


YES 

NO 


FI HELP 


F8 DOS FI 0 Quit 


Figure 10 
Baseline Menu 
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4.0 HELPFUL HINTS 


1) Avoid the use of the F10 key to exit the program. This key should only 
be used when the user wishes to exit completely out of the application. It 
is better practice to back out of the APET system through the use of the 
menus. By doing so, the user ensures that all answers are properly recorded 
to the disk drive. Use of the F10 Key will allow the user to exit but will 
not automatically save information generated during the session. 

2) APET does not support the insertion of externally generated graphics, 
tables, equations, or other non-text material. To alleviate this problem 
without the added labor of using a secondary word processor, it is suggested 
that any such material be included in an Appendix, and referenced in the text 
generated in APET. 

3) To insert an externally generated text file into the text area in the APET 
editor, use the command *KR from within the editor. This is one of a variety 
of commands that can be used from the APET word processor. To see all the 
available commands, press the FI Key from inside the editor. A list of all 
the available commands is also provided in Appendix B of this manual. 

4) The APET editor uses a word wrap routine that automatically wraps the line 
to the next line (a common word processing feature). It also maintains verti- 
cal alignment along the left margin. If you use indented paragraphs, please 
be sure that the line after the indented line begins in the column you desire. 
To do this, use the backspace key to move the first word in the line to the 
column desired. The recommended solution to this problem is not to indent 
paragraphs, but to insert a blank line between each paragraph. 

5) If your computer system is configured to automatically load WINDOWS or 
some other application package, it may be necessary to alter the AUTOEXEC.BAT 
file (located in the boot drive). Instructions for changing the automatic 
load of an application will vary by computer. One of the easier methods is to 
edit the AUTOEXEC.BAT file and remove the line that calls the package. For 
example, WINDOWS is called up by the command WIN. By preventing these packag- 
es from loading, a significant amount of RAM is freed and allowed for use by 
APET. 
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APPENDIX A 


Science Requirements Envelope Document 
Topic Outline 



OUTLINE FOR THE ENVELOPE DOCUMENT 


KNOWLEDGE PRO 
DATA FILE 


1 . 0 PURPOSE 

2 . 0 FUNCTION 

3 . 0 PREPARATION , APPROVAL AND UPDATING 

4 . 0 SUGGESTED CONTENTS 


4.1 Introduction 

4.1.1 Description of Experiment Type or Class .... 

4.1.2 Scientific Knowledge to be Gained from 

This Type of Experimentation • • • 

4 . 1.3 Value of Knowledge of This Type of Experi- 
mentation to scientific field 

4.1.4 Necessity for Space Environment to 

Experiment 


ENV1 

ENV1 

ENV1 

ENV1 


4 . 2 BACKGROUND 


4.2.1 

Scientific Field to Which the Experiment 

, ENV2 

4.2.2 

Current Applications for Research in the 

, ENV2 

4.2.3 

Brief Historical Account of Prior Research 

. ENV2 



. ENV2 

4.2.4 

4.2.5 

Relationship of Proposed Experiment Type 

. ENV2 

4.2.6 

dCX wll uix r ltsiu #••••♦••••••• 

Anticipated Advance in State of the Art 
for This Type of Experimentation 

. ENV2 


4.3 JUSTIFICATION FOR CONDUCTING THIS TYPE OF EXPERIMENT IN 


4.3.1 Limitations of Ground-Based Testing 

4.3.2 Limitations of Drop-Towers 

4.3.3 Limitations of Testing in Aircraft 

4.3.4 Need for Accommodations in the Shuttle 

4.3.5 Limitations of Mathematical Modeling 

4.3.6 Limitations of Other Modeling Approaches ... 


ENV3 

ENV3 

ENV3 

ENV3 

ENV3 

ENV3 


4.4 DESCRIPTION OF EXPERIMENT TYPES 

4 . 4.1 General Description of Type of Experiments . . ENV4 

4.4.2 Types of Experiment Procedures to be Used . . ENV4 
4 4.3 Types of Measurements and Ranges of Values . . ENV4 

Required E*™ 4 


1. DAT 

2. DAT 

3 . DAT 

4. DAT 


1 . DAT 
2 . DAT 

3. DAT 

4 . DAT 

5 . DAT 

6 . DAT 

SPACE 

l.DAT 
'2 . DAT 
"3 . DAT 
'4 . DAT 
'5 . DAT 
'6 . DAT 


1. DAT 

2. DAT 

3. DAT 

4 . DAT 


4.5 SCIENCE REQUIREMENTS ENVELOPE 


4.5.1 General Description of Experiment Sample 


Requirements ENV5 1 . DAT 

4.5.2 Range of Atmospheric Requirements ~~ 

(Pressure, Gas Composition, Humidity, 

Vacuum) ENV5 2. DAT 

4.5.3 Temperature Control, Measurement Range, 

and Accuracy Required ENV5 3. DAT 

4.5.4 Vibration Control, Measurement Range, ~ 

Accuracy and Frequency of Measurements 

Required ENV5 4. DAT 

4.5.5 Typical Test Matrices (Number and ~ 

Duration of Test Required) ENV5 5. DAT 

4.5.6 Imaging Requirements Envelope “ 

(Photography, Radiography; Television; 

Resolution and Frame Rate) ENV5 6. DAT 

4.5.7 Electromagnetic Limitations for Type of 

Experimentation ENV5 7 . DAT 

4.5.8 Typical Astronaut Involvement ~ 

(Extravehicular Activity [EVA], 

Activation of Experiment ENV5 8. DAT 

4.5.9 Typical Data Requirements ENV5~9.DAT 

4.5.10 Telepresence, Telerobotics Requirements ~ 

Telepresence Requirements EN5 10 l.DAT 

Telerobotics Requirements EN5~10~2.DAT 

4.6 OTHER REQUIREMENTS 

4.6.1 Other Applicable Material Not Addressed 

in These Requirements ENV6 l.DAT 



APPENDIX B 


Text Editor Commands 




FORMATTING COMMANDS: 


‘B 

“OR 

‘QI 

~QW 


Reformat Paragraph 
Set Right Margin 
Toggle Autoindent Mode 
Toggle Word Wrap 


FIND AND REPLACE COMMANDS: 

*QA 

~QF 

‘L 


Find and Replace a String 
Find an Occurrance of a String 
Find the Next Occurrence 




APPENDIX F 


Project Plan Software Listing 



( *NASAPLAN . KB 
(* 

(* 

(* 


no_edit_key ( ) . 
no_debug ( ) . 
column = 3 . 
row = 3 . 

action = ' ' . 

nasaloop = 1. 
glossary_load = 0. 
yn = [YES, NO] . 

while ?action <> 'Exit System' 
then do (ma inmenu) . 

topic 'mainmenu'. 

window ( , , red, yellow, ?column, ?row, 76,17) . 

choices = ('How to use the System' , 'Project Selection', 

'Project Plan (Overview) ', 'Glossary /Acronyms ' , 
'Print Glossary /Acronyms' , 'Exit System' ] . 

set_number_of_values (action, 1). 

ask ( ' #e 

Please select the activity of your choice, or choose Exit 
to leave the system. ', action, ?choices) . 

close_window () . 

if ?action = 'How to use the System' 
then new_kb ( 'pp intro. hkb' ) . 

if Paction = 'Project Selection' 
then new_kb ( ' ppro j ect . hkb ' ) . 

if Paction = 'Project Plan (Overview)' 
then new_kb ( 'ppout .hkb' ) . 

if Paction = 'Glossary /Acronyms' 
then 

glossary_load = (?glossary_load + 1) 
and 

do (glossary) . 

if Paction = 'Exit System' 
then exit ( ) . 

if Paction = 'Print Glossary /Acronyms' 
then 

ask ('#e 

The printing of the glossary/ acronym list can require 
a significant amount of time (5-10 minutes depending 
on your system) . Are your sure you want to print the 
glossary at this time?' ,printok, ?yn) 
and 


This is the Automated Paylaod Experiment Tool, *) 

a knowledge-based system to aid in the *) 

development of NASA documentation for *) 

pre-flight planning and control. *) 


if ?printok = NO 
then new_kb ( ' NASAPLAN . CKB ' ) 
else 

window (, white, red, yellow, 1, 16,27,4) 
and 

WRITE ( 'con: ' , 

' GLOSSARY is being 
printed. 

Please stand by. ') 

and 

glossary_print is read ( 'PPTERMS.DAT' ,, '//KSC' ) 
and 

glossary_print is string_replace (?glossary_print, ' // ' , ' f) 

and 

glossary_print is string_replace (?glossary_print, ' /end' , ' ' ) 
and 

print (?glossary_print) 
and 

glossary_print is read ( 'PPTERMS.DAT' , '//KSC' ) 
and 

glossary_print is string_replace (?glossary print, '//',' ') 

glossary_print is string_replace (?glossary_print , ' /end' , ' ' ) 
and 

print (?glossary_print) 
and 

close_window () . 

(* **************************************************************** *v 

topic glossary. 

window ('LISTING OF NASA GLOSSARY AND ACRONYMS' , blue, white, white, 1, 1, 80, 20) . 

if ?glossary_load = l 
then 

window ( , white, red, yellow, 1, 16, 27, 4) 
and 

WRITE ('con:', 

' A slight delay will 
occur while the 
glossary is loaded. 

Please stand by. ') 

and 

glossary_text is read ('PPINDEX.DAT') 
and 

close_window () 
and 

close ('PPTERMS.DAT'). 
say (?glossary_text) . 
close_window () . 
end. (* glossary *) 
topic mark (f ind_string) . 

text is read (' PPTERMS.DAT' ,concat ('//', ?f ind_string) ,' /end' ) . 
window (?find_string, blue, white, white, , ,72,) . 
say (?text) . 
close_window (). 



end. (* mainmenu 


This is the introductory screen for the *) 

NASA Automated Payload Element Tool. *) 

It is used to give the novice user a *) 

brief tour of the functions of the system. *) 

no_edit_key ( ) . 
nodebug () . 

yn is [YES, NO], 
column = 3. 
row = 3 . 

tried = 0. 


( *PPINTRO.KB 
(* 

(* 

(* 


do (so_you_want_to_f ly) . 

new_kb ( 'nasaplan. ckb' ) . 

topic so_you_want_to_f ly . 
say (' 


#bmagenta So you want to fly on the Shuttle. #d 

Well, before you can, we must get a little information about 
your experiment and its objectives. 

If you have flown with us in the past, you may remember a substantial 
amount of paper documentation was required. This application, the 
#mAutomated Payload Experiment Tool#m, is designed to alleviate much 
of the burden of #mexper iment #m preparation by utilizing a #mhypertext#m , 
knowledge— based system. This system can be used to prepare one of our 
support documents, the Project Plan, which describes the overall plan 
for proceeding with a project. 


if ?tried = 0 
then 


Press #f yellow SPACE#D to continue. 


column = ?column + 1 
and 

row = ?row + 1 
and 

window (' ', white, red, white) 
and 


) • 


say ( ' #e 

For more information on a highlighted topic, just move 
the mouse to that word and click. The information 
will immediately be displayed. If you are not using a 
mouse, please use the function keys as indicated at the 
bottom of the screen. 

For multiple page definitions, please use the #fyellow Page Up#d 
and #fyellow Page Down#d keys to scroll back and forth through 
the pages. Multiple page displays are indicated by the 
#fyellow Page x of x #d message at the lower right of the screen. 

For help at anytime throughout the application, select 

the #fyellow Fl#d key. This will retrieve location sensitive 



help information, and may be called from the system 
or system— ca 1 led edit screens. 

This will be the method by which support documentation 
will be retrieved throughout this application. 

Press #f yellow SPACE#D to continue.") 

and 

close_window () 
and 

tried = l 
and 

column = ? column - 1 
and 

row = ?row - 1 
and 

do (so_you_want_to_f ly) . 


topic mark (f ind_string) . 
column = ?column +1. 

row = ?row +1. , 

text is read ( ' PPTERMS.dat" , concat ('//', ?f md_strmg) , /end ). 

window (?find_string,blue,white,white,?column,?row,72, ) . 

say (?text) . 
column = ?column - 1. 
row = ?row — 1 - 
close_window (). 
end. (* mark *) 


end. (* so_you_want_to_f ly *) 



(* PPOUT.KB This is the outline for appendix E of the MS AD Project Plans *) 

no_edit_key ( ) . 
no_debug () . 

column = 3. 
row = 3. 

menu_choice = ' ' . 

menu_option = [ 'GENERAL' , 'PREPARATION AND APPROVAL' , 'CHANGES' , 

'CONTENT', 'RETURN TO PREVIOUS MENU']. 

while ?menu_choice <> 'RETURN TO PREVIOUS MENU' 
then do (outline) . 

topic 'outline', 
ask ( ' #e 


OUTLINE FOR PREPARING 
MSAD PROJECT PLANS 


Which section do you wish to display?' ,menu_choice,?menu_option) . 

if ?menu_choice = 'GENERAL' 
then do ( ' General ' ) . 

if ?menu_choice = 'PREPARATION AND APPROVAL' 
then do ('Preparation and Approval'). 

if ?menu_choice = 'CHANGES' 
then do ( ' Changes ' ) . 

if ?menu_choice = 'CONTENT' 
then new_kb ( ' dispcont . hkb ' ) . 

if ?menu_choice = 'RETURN TO PREVIOUS MENU' 
then new_kb ( ' nasaplan . ckb ' ) . 

end. (* outline *) 


( *==== ===== = =^======^ _ = THREADED TOPICS ==== = == =r- 

topic 'General'. 

window (' 1.0 General' , blue, white, white, ?column,?row, 76,18) . 

say ( ( ' 


The Microgravity Science and Applications Division 
(MSAD) requires that a MSAD Project Plan be submitted and 
approved prior to making a major commitment of resources 
to an MSAD project. MSAD Project Plans are to be prepared 
in final draft form for the Requirements Definition Review 
#40RDR#41. 


close_window () . 
end. (* General *) 


Press #f yellow SPACE#d to continue']). 



topic 'Preparation and Approval'. 

window ('2.0 Preparation and Approval' , blue, white, white , ?column, 
?row, 76, 18) . 

say ( ' 

Plans will be prepared and submitted for all 
flight experiments. Project plans will be reissued, 
modified, or ammended for reflights depending on the 
complexity of the task. A plan#39s preparation is 
the responsibility of the designated Project Manager 
at the responsible NASA center. The Project Manager 
will sign the MSAD Project Plan as the preparer; the 
Project Scientist and the Principal Investigator will 
sign as concurring. The MSAD Project Plan will be signed 
off at the NASA center prior to submission to Headquarters 
by the appropriate center#39s authorities. When the Program 
Scientist and Program Manager sign to register their concur- 
rence, the MSAD Projet Plan will be submitted to the MSAD 
Director for approval. 

Press #f yellow SPACE#d to continue'). 

close_window () . 

end. (*Preparation and Approval *) 
topic ' Changes ' . 

window ('3.0 Changes' , blue, white, white, ?column,?row, 76, 18) . 
say ( [ ' 

The Project Manager is responsible for updating 
a MSAD Project Plan when significant changes occur (such 
as changes in scope, organization, or roles and responsi- 
bilities) . This does not apply to resources, schedules 
or manpower, which are updated through normal budgeting 
and project monitoring activities. The Pro jet Manager 
will establish a change control process for maintaining 
the MSAD Project Plan and other project documentation. 

Press #fyellow SPACE#d to continue']). 

close_window ( ) . 
end. (* Changes *) 



( *PPRO JECT . KB 
(* 

(* 

(* 


This is the project menu to allow the 
user to define a new project or select 
an existing project. It then calls 
the appropriate submenu. 


no_edit_key ( ) . 
no_debug () . 
do_gloss = 1 . 
yn is [YES, NO], 
pro j list is ' ' . 
do (firstpass) . 

if ?pro j ect_want = 'RETURN TO MAIN MENU' 
then new_kb ( 'nasaplan.ckb' ) . 


topic 'firstpass'. 

eof = number_to_char (26) . 
projtest is read_line ('pproj.dat'). 
if ?projtest = ?eof 
then 

do (new_project) 
else 

pro j list is read ('pproj.dat') 
and 

do (old_pro ject) . 


*) 

*) 

*) 

*) 


topic 'new_project ' . 

window (, white, red, yellow, 5, 5 , 75, 16) . 
read_response ( ' #e 

Please enter an identifier for your project. This identifier 
should be eight (8) characters or less. #n ' ,newproject) . 

newproject = string_replace(?newproject, ' ' , " ,8) . 

IF 7NEWPR0JECT <> [ ] AND ? NEWPROJECT <> ' ' AND 7NEWPR0JECT <> ' ' 
then 

pro j list gets ?newproject 
and 

new_file ('pproj.dat') 
and 

write ( 'pproj .dat' , #o, ?projlist) 
and 

close ('pproj.dat') 
and 

project_want = ?newproject 
and 

cur_dir = string_replace (?project_want , ' ' , ' ' , 10) 
and ~~ 

new_f ile ('CURDIR.DAT') 
and 

write ('CURDIR.DAT' ,?cur_dir) 
and 

close ('CURDIR.DAT') 
and 

DOSCOMMAND = CONCAT('MD ' , 7NEWPROJECT) 
and 

dos (7D0SC0MMAND, restore) 



else 

say ( ' #e 

Sorry, the identifier for your project must be a valid DOS 
name, i.e., eight (8) characters or less. 

Please press #f yellow SPACE#d and begin again. ) 

and 

new_kb ( ' ppr o j ect . hkb ' ) . 
close_window ( ) . 

end. (* new_project *) 

topic / old_project / . 

window (, white, red, yellow, 5,5,75,16). 
choose project = Tprojlist. 

choose - pro j ect gets ' ENTER A NEW PROJECT' . 
choose - project gets 'DELETE AN OLD PROJECT', 
choose - pro j ect gets 'RETURN TO MAIN MENU', 
ask ('#e 

Please select the project of your choice, or enter a new 
project. ' , project_want, ?choose_project) . 

if ?project_want = ' ' or ?project_want = [ ] or ?project_want 

then do (new_project) . 

if ?pro j ect_want = 'DELETE AN OLD PROJECT' 
then do (kill_project) . 

if ?pro j ect_wan t = 'RETURN TO MAIN MENU' 
then new_kb ( 'nasaplan.ckb' ) . 

if ?pro j ect_want = 'ENTER A NEW PROJECT' 
then do (new_pro ject) 

else . . 

cur_dir = string_replace(?project_want, , ,10) 

and 

new_f ile ('CURDIR.DAT') 
and 

write ( 'CURDIR.DAT' ,?cur_dir) 
and 

close ( ' CURDIR . DAT ' ) . 

close_window ( ) . 

end. (* old_pro ject *) 

end. (* firstpass *) 

new_kb ( 'ppnasam. hkb' ) . 

topic 'kill_project ' . 
close ('pproj.dat'). 
deletename = ' ' . 

window ( , white , red , yellow ,5,5,75,16) . 
ask ('#e 

You have chosen to delete a project. This will erase all data 


files for the project from your hard drive, plus will remove 
the project from the list of available projects. This deletion 
is permanent and cannot be undone; therefore, use this ODtion 
with CAUTION. 

Do you wish to proceed with the project deletion? • 

deleteok, ?yn) . 7 

if ?deleteok = YES 
then 

read_response ( ' #e 

Please enter the project identifier exactly as it appears in 
the project selection list. This identifier should be eight 
(8) characters or less. #n 7 ,killproj ) . 

oldlist is string_to_list (?projlist) . 

if ?deleteok = YES 
then 

deletename is intersect (?killproj , ?oldlist) . 
deletefnl = NO. 

if ?deleteok = YES 
then 

if ^deietename <> ' ' and ?deletename <> " and ?deletename <> r l 
then 1 J 

ask (['#e 

This is your FINAL WARNING. 

#s 

D °else t0 delete the P r °3ect: 7 ,? deletename , '?'] ,deletefnl, ?yn) 

say ( 7 #e 

This project was not found. Please be sure to type 
project title as it appears on the list, i.e. using 
appropriate upper- and lower-case letters. 

Press #fyellow SPACE#d to continue. '). 

if ?deletefnl = YES 
then 

oldlist is remove (?oldlist, ?deletename) 
and 

new_f i 1 e ( ' PPROJ . DAT ' ) 
and 

write ( 7 PPROJ. DAT 7 , ?oldlist) 
and 

close ( 7 PPROJ. DAT' ) 
and 

doscommand = concat ('ERASE C: \GARDEN\ ' , ’deletename , ' \ * . * M 
ana 9 

dos (?doscommand, restore) 
and 

doscommand = concat ( 7 RD ' , ?deletename) 

dos (?doscommand , restore) . 
close_window () . 
new_kb ( 7 PPROJ ECT . HKB 7 ) . 


end. (* kill_project *) 

(* **************************************************************** *) 

end. (* nasamenu *) 



(♦PPNASAM.KB This is the activity menu to allow the *) 

(* user to select an activity to perform on *) 

(* an existing project. *) 

no_edit_key () . 
no_debug ( ) . 
do_gloss = 1. 
today = date () . 
month = element (? today, 1) . 
day = element (?today, 2) . 
year = element (? today, 3) . 

today = concat ( ?month , ' / ' , ?day , ' / ' , ?year ) . 
yn is [YES, NO]. 

curdir is read_line ( 'CURDIR.DAT' ) . 

close (concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \BASELINE.DAT' ) ) . 
curdir is string_replace (?curdir, ' / , // ,8). 
eof = number_to_char (26) . 

menu_option is ['FILL OUT DOCUMENTATION ' , ' PRINT PROJECT PLAN', 

'DISPLAY PROJECT PLAN ',' DETERMINE IF PROJECT PLAN IS COMPLETE', 

'BASELINE DOCUMENT' , 'COMPARE BASELINE TO CURRENT REVISION', 

'COPY ANSWERS TO DISK' , 'RETURN TO PREVIOUS MENU', 

'RETURN TO MAIN MENU', 

'EXIT SYSTEM']. 
menu_choice = ' ' . 

while ?menu_cho ice <> 'EXIT SYSTEM' 
then do (nasamenu) . 

topic nasamenu. 

ask (['#e #s 

The project you have selected is: ' , ?curdir, '#d #n 

Please enter your choice of activities from the list. ' ] ,menu_choice, 
?menu_option) . 

if ?menu_choice = 'FILL OUT DOCUMENTATION' 
then new_kb ( ' ppf i 1 lm . hkb ' ) . 

if ?menu_choice = 'RETURN TO PREVIOUS MENU' 
then new_kb ( ' PPROJECT . HKB ' ) . 

if ?menu_choice = 'RETURN TO MAIN MENU' 
then newkb ( ' NASAPLAN . CKB ' ) . 

if ?menu_cho ice = 'PRINT PROJECT PLAN' 
then new_kb ( ' PPPRINT . HKB ' ) . 

if ?menu_choice = 'BASELINE DOCUMENT' 
then do (baseline_rtn) . 

if ?menu_choice = 'DISPLAY PROJECT PLAN' 
then new_kb ( ' DISPPROJ . HKB ' ) . 

if ?menu_choice = 'COPY ANSWERS TO DISK' 
then do (copy files) . 

if ?menu_cho ice = 'COMPARE BASELINE TO CURRENT REVISION' 
then do (compare_rtn) . 



if ?menu_cho ice = ' DETERMINE IF PROJECT PLAN IS COMPLETE' 
then new_kb ( ' ppsearch . hkb ' ) . 

if ?xnenu_cho ice = 'EXIT SYSTEM' 
then stop ( ) . 

topic ' copyf iles ' . 

ask ('Do you want to copy your answers to a different drive? ' ,wantcopy, ?yn) . 
if ?wantcopy = YES 

then drivelist is [A: ,B: ,C: ,D: ,NONE] 
and 

cis)c • 

('Please choose the drive to which you wish to copy the files: ', 

drive_destination, ?drivelist) - 

if ?wantcopy = YES and ?drive_destination <> NONE 

th cSpy_command = concat ('COPY C: \GARDEN\' , ?curdir, ' \*.DAT ' , ?DRIVE_DESTINAT 
and 

say ( ' . 

Please insert diskette now if you are copying to a floppy drive. 

Please press #f yellow SPACE#d when ready. ') 


and 

move_cursor (1,10) 
and 

dos ( ?copy_command , restore ) 
and 

say ( ' #e 


Answers have been moved to drive ^s',?drive destination, #n #n 


Please press #fyellow SPACE#d to exit. ' ) • 
do (nasamenu) . 
end. (* copyf iles *) 
topic 'baseline_rtn' . 
ask ( ' #e 

At some point in the documentation process, it is necessary to 
declare that all documents are complete, and that any changes 
to be made will be treated as revisions to the baseline document. 

Do you want to baseline your answers at this time?' , baseline, ?yn) . 

curbase = ?eof. 
overwrite = YES. 
if ?baseline = YES 

curbase is read_line ( concat ( ' C : \GARDEN\ ' , ?CURDIR, ' \BASELINE . DAT ) ) 
and 

close ( concat ( ' C : \ GARDEN \ ' , ?CURDIR , ' \ BASELINE . DAT ' ) ) 
and 


if ?curbase <> ?eof 
then 
ask 

('#e 

You have already baselined this experiment in the past. Do you 
want to take all revisions and overwrite your previous baseline 
to create a new baseline? overwrite, ?yn) . 

if ?curbase = ?eof and ?baseline = YES 
then 

md_command = concat ('MD C: \GARDEN\ ' , ?curdir, ' \BASELINE' ) 
and 

dos ( ?md_command , restore ) 
and 

copy_command = concat 

an d (,COPY C: \ GARDEN \'» ? CURDIR, '\*.DAT C: \GARDEN\ ' , ?CURDIR, ’ \BASELINE\* . * 

dos ( ?copy_command , restore) 
and 

write (concat ( 'C: \GARDEN\ ' , ?CURDIR, ' \ BASELINE . DAT ' ) , ?todav) 
and 

say ('#e 

Baseline document has been created. All changes to this 
document will be stored in the revision. A new baseline 
must be created to incorporate any revisions into the 
final document . 


Please press #f yellow SPACE#d to exit. 


') . 


if ? cur base <> ?eof and ?baseline = YES and ?overwrite — YES 
then 

xcopy_command = concat 

('XCOPY C:\GARDEN\',?CURDIR, '\*.DAT C: \GARDEN\ ' , ?CURDIR, 

' \BASELINE\*. * /D: ' ,?CURBASE) 

and 

dos ( ? xcopy command , restore ) 
and 

new_f ile ( concat ( ' C : \GARDEN\ ' , 7CURDIR, ' \ BASELINE . DAT ' ) ) 
and 

write (concat ( 'C: \GARDEN\ ' , ?CURDIR, ' \BASELINE.DAT' ) ’today) 

and 1 ' 

say ( '#e 


All revisions have been incorporated in the baseline 
document. Addition changes to this document will be 
stored in a new revision. A new baseline must be 
created to incorporate any new revisions into the 
final document. 


Please press #f yellow SPACE#d to exit. '). 


do (nasamenu) . 
end. (* baseline_rtn *) 
topic ' compare_rtn ' . 



curbase is read_line (concat ( ' C : \GARDEN\ ' , 7CURDIR, ' \ BASELINE . DAT' ) ) 

close (concat('C: \GARDEN\' ,?CURDIR, ' \BASELINE.DAT') ) 
and 

if ?curbase = ?eof 
then 
say 
('#e 

You have not yet baselined this experiment; therefore, 
no comparison is necessary . 


Press #f yellow SPACE#d to continue') 


and 

new kb ( 'ppnasam.HKB' ) . 


comp_choices 


['RUN COMPARISON PROGRAM' , 'DISPLAY COMPARISONS', 
'PRINT COMPARISONS' , 'RETURN TO PREVIOUS MENU']. 


ask ( ' #e 

Do you wish to run the comparison program to generate a new 
listing of differences between the baseline and revision, 
print or display the results of the most recent comparison, 
or exit this menu?' ,comp_ans,? comp_cho ices) . 

if ?comp ans = 'RETURN TO PREVIOUS MENU' 
then new_kb ( ' NASAMENU . HKB ' ) . 

if ?comp_ans = 'RUN COMPARISON PROGRAM' 
then 

do (comp_pgm) . 


topic 'comp_pgm'. 

comp command = concat 

(~FC /a C: \GARDEN\ ' , ?CURDIR, ' \* • DAT C: \GARDEN\ ' , 7CURDIR, 
' \BASELINE\* . * > C: \GARDEN\ ', 7CURDIR, ' \DIFFER.DAT' ) . 
dos (?comp command, restore) . 

close (concat ( 'C: \GARDEN\ ' , ?CURDIR, ' \DIFFER.DAT' ) ) . 


say ( ' #e 

Files have been compared. Please use the display or 
print options to view the results of the comparison. 

Press #f yellow SPACE#d to continue.'). 

end. (* comp_pgm *) 

if ?comp_ans = 'DISPLAY COMPARISONS' 

th comp_file = read (concat (C: \GARDEN\ , ?CURDIR, ' \DIFFER.DAT' ) ) 
and 

say (?comp_file) . 


if ?comp_ans = 
then 

comp_file = 
and 


'PRINT COMPARISONS' 
read ( concat ( C : \GARDEN\ , 


?CURDIR, '\DIFFER.DAT' 


)) 



print ( #p , ? comp_f i le , #p ) . 
do (nasamenu) . 
end. (* compare_rtn *) 
end. (* nasamenu *) 



( *PPSEARCH . KB This program is used to search for the 

}* necessary data files to complete the 

/* Project Plan, and notify the user of any 

missing sections. 

yn = [YES, NO], 
column = 3 . 
row = 3 . 

eof = number_to_char (26) . 
no_edit_key ( ) . 
no_debug ( ) . 

curdir is read_line ( 'CURDIR.DAT' ) . 
curdir = string_replace (?curdir , ' ' , ' ' , 8) . 

incomplete_sections = [ ] . 
completed_sections = 0 . 
total_files = 25. 

do (search) . 

close window (). 


if ?completed_sections = ?total_files 

then 

say ( ' #e 


All questions have been answered. The Project Plan is 
now ready to print. 


Press #fyellow SPACE#d to continue') 


else 

say ( ' #e 


The following topics have not been answered. 
Plan is not ready for final printing. 


The Project 


' #n#n#n 


#n' , ?incomplete_sections , 
Press #fyellow SPACE#d to continue') 


new Jcb ( ' PPNASAM . HKB ' ) . 
topic 'search'. 

window (, white, red, yellow, 1, 16, 27, 4) . 
WRITE ( ' con : ' , 

' Database is being 
searched. 

Please stand by. ')• 


readfile = concat ( 'C: \GARDEN\ ' , ?CURDIR, ' \PPE4_1.DAT' ) . 
testfile = read_line(?readfile) . 
do ( 'tally_rtn' ) . 
if ?testfile = ?eof 


then incomplete_sections gets '4.1 Introduction', 
close (?readfile) . 

readfile = concat(' C:\GARDEN \' ,?CURDIR, '\PPE4 2. DAT'), 
testfile = read_line(?readfile) . 
do ( 'tally_rtn' ) . 
if ?testfile = ?eof 

then incomplete_sections gets '4.2 Objectives', 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \PPE4 3. DAT'), 
testfile = read_line(?readfile) . “ 

do ( ' tally_rtn ' ) . 
if ?testfile = ?eof 

then incomplete_sections gets '4.3 Science Requirements', 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\ ', ?CURDIR, ' \PPE4 4 1 . DAT ' ) . 
testfile = read_line (?readf ile) . 
do ( 'tally_rtn' ) . 
if ?testfile = ?eof 

then incomplete_sections gets '4.4.1 Experiment Hardware Description' 
close (?readfile) . 

readfile = concat ( ' C : \GARDEN\ ' , 7CURDIR, ' \PPE4 4 2. DAT'). 

testfile = read_line(?readfile) . 

do ( 'tally_rtn' ) . 
if ?testfile = ?eof 

then incomplete_sections gets '4.4.2 Payload Classification', 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\ ', 7CURDIR, ' \PPE4 4 3. DAT'), 
testfile = read_line(?readf ile) . 
do ( ' tally_rtn ' ) . 
if ?testfile = ?eof 

then incomplete_sections gets '4.4.3 Development Approach', 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\ ' ,?CURDIR, '\PPE4 4 4. DAT'). 

testfile = read_line(?readf ile) . 

do ('tally_rtn' ) . 
if ?testfile = ?eof 

then incomplete_sections gets '4.4.4 Technology Plan', 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \PPE4 4 5. DAT'). 

testfile = read_line(?readf ile) . 

do ( 'tally_rtn' ) . 
if ?testfile = ?eof 

then incomplete_sections gets '4.4.5 Logisitics'. 
close (?readfile) . 

readfile - concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \PPE4 4 6. DAT'). 

testfile = read_line(?readf ile) . 

do ('tally_ xn'). 
if ?testfiie = ?eof 

then incomplete_sections gets 

'4.4.6 Mission Operations Training & Data Management', 
close (?readfile) . 



readfile = concat( 'C: \GARDEN\' ,?CURDIR, '\PPE4_4_7.DAT') . 
testfile = read_line(?readf ile) . 
do ( ' tally_rtn ' ) . 
if ?testf ile = ?eof 

then incomplete_sections gets 
• 4 . 4.7 Analysis of Mission Results', 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \PPE4_4_8 .DAT' ) . 
testfile = read_line (?readf ile) . 
do ( ' tally_rtn ' ) . 
if ?testfile = ?eof 

then incomplete_sections gets 
'4.4.8 Facilities', 
close (?readf ile) . 

readfile = concat ( 'C: \GARDEN\' ,?CURDIR, ' \PPE4_4_9.DAT' ) . 
testfile = read_line(?readf ile) . 
do ( ' tally_rtn ' ) . 
if ?testf ile = ?eof 

then incomplete_sections gets 
'4.4.9 Safety', 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \PPE4_5_1.DAT' ) . 
testfile = read_line(?readfile) . 
do ( 'tally_rtn' ) . 
if ?testfile = ?eof 

then incomplete_sections gets 
'4.5.1 Implementation Approach ' . 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\' , ?CURDIR, ' \PPE4_5_2 .DAT' ) . 
testfile = read_line(?readfile) . 
do ( ' tally_rtn ' ) . 
if ?testf ile = ?eof 

then incomplete_sections gets 
'4.5.2 Summary Work Breakdown Structure', 
close (?readfile) . 

readfile = concat (' C: \GARDEN\ ' ,?CURDIR, '\PPE4_5_3.DAT') . 
testfile = read_line(?readfile) . 
do ( 'tally_rtn' ) . 
if ?testfile = ?eof 

then incomplete_sections gets 
'4.5.3 Documentation ' . 
close (?readf ile) . 

readfile = concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \PPE4_6_2.DAT' ) . 
testfile = read_line(?readfile) . 
do ( ' tally_rtn ' ) . 
if ?testfile = ?eof 

then incomplete sections gets 

'4.6.2 Mission Management Responsibilities and Organization 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\' , ?CURDIR, ' \PPE4_7 .DAT' ) . 
testfile = read_line(?readfile) . 
do ( 'tally_rtn' ) . 
if ?testfile = ?eof 


then incomplete_sections gets 
'4.7 Schedule ' . 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\' ,?CURDIR, '\PPE4 8 1 . DAT ' ) . 
testfile = read_line(?readfile) . 
do ( ' tally_rtn ' ) . 
if ?testfile = ?eof 

then incomplete_sections gets 
'4.8.1 Resources', 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \PPE4 8 2. DAT'), 
testfile = read_line(?readf ile) . ~ 

do ( ' tal ly_rtn ' ) . 
if ?testfile = ?eof 

then incomplete_sections gets 
'4.8.2 Cost Control Guidelines', 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\ ', 7CURDIR, ' \E4 8 3 1 . DAT ' ) . 
testfile = read_line(?readf ile) . 
do ( 'tally_rtn' ) . 
if ?testfile = ?eof 

then incomplete_sections gets 
' 4 . 8 . 3 . 1 NASA Reports ' . 
close (?readfile) . 

readfile = concat ( ' C : \GARDEN\ ' , 7CURDIR, ' \E4 8 3 2. DAT'). 

testfile = read_line(?readfile) . 

do ('tally_rtn') . 
if ?testfile = ?eof 

then incomplete_sections gets 
'4. 8. 3. 2 Contractor Reports ' . 
close (?readfile) . 

readfile = concat ( ' C : \GARDEN\ ' , 7CURDIR, ' \PPE4 8 4. DAT') . 
testfile = read_line(?readfile) . 
do ( 'tally_rtn' ) . 
if ?testfile = ?eof 

then incomplete_sections gets 
'4.8.4 Cost Control Strategy', 
close (?readfile) . 

readfile = concat ( ' C : \GARDEN\ ' , 7CURDIR, ' \E4 9 1 l.DAT' ) . 
testfile = read_line(?readfile) . 
do ( 'tally_rtn' ) . 
if ?testfile = ?eof 

then incomplete_sections gets 
'4. 9. l.l Internal Reviews', 
close (?readfile) . 

readfile = concat ( 'C: \GARDEN\ ', 7CURDIR, ' \E4 9 1 2. DAT'). 

testfile = read_line(?readfile) . 

do ( 'tally_rtn' ) . 
if ?testfile = ?eof 

then incomplete_sections gets 
'4. 9. 1.2 External Reviews', 
close (?readfile) . 



readf ile = concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \E4_9_1_3 . DAT' ) . 
testfile = read_line(?readf ile) . 
do ( ' tal ly_rtn ' ) . 
if ? testfile = ?eof 

then incomplete_sections gets 
'4. 9. 1.3 Design and Readiness Reviews', 
close (?readfile) . 

topic 'tally_rtn' . 

if ?testfile <> ?eof 

then coxnpleted_sections = ? comp leted_sect ions + 1. 

end. (* tally_rtn *) 

end. (* search *) 



(* DISPPROJ . HKB is used to display all sections of the PROJECT PLAN. *) 

no_edit_key () . 
no_debug ( ) . 
choice = [ ] . 

eof = number_to_char (26) . 

curdir is read_line ('CURDIR.DAT'). 

curdir is string_replace (?curdir , ' ' , ' ' , 8) . 

blankline = ' ' . 

line_count = 0. 

do (display_Routine) . 

new_kb ( ' PPNASAM . HKB ' ) . 

topic 'display_Routine' . 

sections = ['1.0 INTRODUCTION', 

'2.0 OBJECTIVE', 

'3.0 SCIENCE REQUIREMENTS', 

'4.0 TECHNICAL PLAN', 

'5.0 IMPLEMENTATION PLAN', 

'6.0 MANAGEMENT PLAN', 

'7.0 SCHEDULE', 

'8.0 COST CONTROL PLAN', 

'9.0 PROJECT REVIEWS AND MEETINGS', 

'QUIT' ] . 

window ('Display Project Plan' , white, blue, white, 3, 3, 78, 18) . 
while ?choice <> QUIT 

then do (display_PPLAN) . 
close_window ( ) . 
close_all () . 


topic 'display_PPLAN' . 

pplan_page = [ ] . 

ask ('#e 

Which section do you want to display?' , choice, ?sections) . 

if ? choice = '1.0 INTRODUCTION' 
then do ('1.0 INTRODUCTION' ) . 

if ? choice = '2.0 OBJECTIVE' 
then do ('2.0 OBJECTIVE' ) . 

if ? choice = '3.0 SCIENCE REQUIREMENTS' 
then do ('3.0 SCIENCE REQUIREMENTS ' ) . 

if ? choice = '4.0 TECHNICAL PLAN' 
then do ('4.0 TECHNICAL PLAN'). 

if ? choice = '5.0 IMPLEMENTATION PLAN' 
then do ('5.0 IMPLEMENTATION PLAN'). 

if ? choice = '6.0 MANAGEMENT PLAN' 
then do ('6.0 MANAGEMENT PLAN'). 

if ? choice = '7.0 SCHEDULE' 
then do ('7.0 SCHEDULE ' ) . 



if ? choice = '8.0 COST CONTROL PLAN' 
then do ('8.0 COST CONTROL PLAN'). 

if ? choice = '9.0 PROJECT REVIEWS AND MEETINGS' 
then do ('9.0 PROJECT REVIEWS AND MEETINGS'). 

if ?choice = QUIT 

then new kb ( ' PPNASAM . HKB ' ) . 


topic '1.0 INTRODUCTION ' . 
page_count = 0 . 
pplan_page gets ?blankline. 
pplan page gets ?blankline. 

filename = concat(C: \GARDEN\ , 7CURDIR, '\PPE4_1.DAT' ) . 
line is read_line (?f ilename) . 
pplan page gets ' 1.0 INTRODUCTION'. 

pplan_page gets ?blankline. 
line_count = 4. 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
pplan_page gets ?blankline. 
line_count = ?line_count + 1. 
do (page_advance) . 


end. (* 1.0 INTRODUCTION *) 

topic '2.0 OBJECTIVE ' . 
page count = 0. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_2.DAT' ) . 
line is read_line (?f ilename) . 
if ?line_count > 54 

then do (page_advance) . 

pplan_page gets ?blankline. 
pplan_page gets ?blankline. 
pplan_page gets ' 2.0 OBJECTIVE'. 

pplan~page gets ?blankline. 
line_count = ?line_count + 4. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan_page gets ?blankline. 
line_count = ?line_count + 1. 
do (page_ad vance) . 


end. (* 2.0 OBJECTIVE *) 

topic '3.0 SCIENCE REQUIREMENTS', 
page count = 0 . 

filename = concat (C : \GARDEN\ , 7CURDIR, ' \PPE4_3 . DAT' ) . 
line is read_line (?f ilename) . 
if ?line_count > 54 

then do (page_advance) . 

pplan_page gets ?blankline. 



REQUIREMENTS ' 


pplan_page gets ?blankline. 
pplan_page gets ' 3.0 SCIENCE 

pplan_page gets ?blankline. 
line_count = ?line_count + 4. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan_page gets ?blankline. 
line_count = ?line_count + 1. 
do (page_advance) . 


end. (* 3.0 SCIENCE REQUIREMENTS *) 

topic '4.0 TECHNICAL PLAN'. 
page_count = 0. 

filename = concat(C: \GARDEN\,?CURDIR, '\PPE4_4__1.DAT') . 
line is read_line (?filename) . 
if ?line_count > 54 

then do (page_advance) . 

pplan_page gets ?blankline. 
pplan_page gets ?blankline. 
pplan_page gets ' 4.0 TECHNICAL PLAN'. 

pplan_page gets ?blankline. 

pplan_page gets ' 4.1 Experiment Hardware Description' 

pplan_page gets ?blankline. 
line_count = ?line_count + 6. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

pplan_page gets ' 4.2 Payload Classification'. 

pplan_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat(C: \GARDEN\,?CURDIR, '\PPE4_4_2.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplan_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

pplan_page gets ' 4.3 Development Approach'. 

pplan_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_4_3.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplan_page gets ?blankline. 
if ?line count > 56 



then do (page_advance) . 

pplan_page gets ' 4.4 Technology Plan' 

pplan_page gets ?blankline. 
line count = ? line count + 2. 

filename — concat (C: \GARDEN\ , 7CURDIR/ ' \PPE4_ 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line count = ?line_count + 1. 

pplan page gets ?blankline. 

if ?l!ne_count >56 

then do (page_advance) . 

pplan_page gets ' 4 . 5 Logistics ' . 

pplan_page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat ( C : \ GARDEN \ , ? CURDIR , ' \ PPE4_4 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line count = ?line_count + 1. 
pplan_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

pplan page gets . . , 

r 4.6 Mission Operations Training and 

pplan page gets ?blan)cline. 
line count = ?line_count + 2. 

filename = concat (C : \GARDEN\,?CURDIR, '\PPE4_J 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line_count + 1. 
pplan_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


pplan_page gets 
> 4.7 Analysis of 


Mission Results'. 


pplan_page gets ?blanlcline. 
line count = ?line count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_ 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_f ile) . 
close (?f ilename) . 
line_count = ?line_count + 1. 
pplan_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


pplan_page gets 
• 4.8 Facilities'. 

pplan_page gets ?blankline. 
line count = ?line_count + 2. 


4. DAT') . 


5. DAT') . 


Data Management' 
, 6. DAT') . 


4 7. DAT') . 



filename * concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_4_8.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplan_page gets ?blankline. 
do (page_advance) . 


pplan_page gets 
' 4.9 Safety' . 

pplan_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\, 7CURDIR, ' \PPE4_4_9.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplan_page gets ?blankline. 
do (page_advance) . 

end. (* 4.0 TECHNICAL PLAN *) 

topic '5.0 IMPLEMENTATION PLAN'. 
page_count = 0. 

filename = concat (C: \ GARDEN \, 7 CURDIR, ' \PPE4_5_1.DAT' ) . 
line is read_line (?filename) . 
if ?line_count > 54 

then do (page_advance) . 

pplan_page gets ? blankline. 
pplan_page gets ?blankline. 

pplan _page gets ' 5.0 IMPLEMENTATION PLAN'. 

pplan_page gets ?blankline. 

pplan_page gets ' 5.1 Implementation Approach'. 

pplan_page gets ?blankline. 
line_count = ?line_count + 6. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan_page gets ?blankline. 
line_count = ?line_count + l. 
if ?line_count > 54 

then do (page_advance) . 

pplan_page gets 

' 5.2 Summary Work Breakdown Structure'. 

pplan_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \PPE4 5 2. DAT'), 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplan^page gets ?blankline. 
if ?lTne_count > 56 

then do (page_advance) . 



pplan_p a ge gets 
/ 5.3 Documentation'. 

pplan_j?age gets ?blankline. 

Xine count = ?line count + 2. 

filename = concat (C : \GARDEN\ , 7CURDIR, 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 

line count — ?line count + 1. 

pplan_page gets ?blankline. 
do (page_advance) . 


\PPE4_5_3.DAT') . 


end. (* 5.0 IMPLEMENTATION PLAN *) 


topic '6.0 MANAGEMENT PLAN'. 

filename"* concat (C : \GARDEN\ , 7CURDIR, ' \PPE4_6_1 . DAT' ) . 
line is read_line (?filename) . 
if ?line_count >48 

then do (page_advance) . 


pplan_page gets ?blankline. 
pplan page gets ?blanJcline. 
pplanjpage gets ' 6.0 MANAGEMENT PLAN ' . 

pplan_page gets ?blankline. 

PP _P 9 9 Proiect Management Responsibilities and Organization 


pplan_jpage gets Tbiankline. 
line count = ?line_count + 6. 
while ?line <> ?eof 


then do (read_file) . 
close (?filename) . 
pplan page gets ?blan3cline. 
line count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 


PP _P Mission Management Responsibilities and Organization' 


pplan_page gets ?blankline. 
line count = ?line count +2. 

filename = concat (C : \GARDEN\ , 7CURDIR, '\PPE4_6_2.DAT ). 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line count = ?line_count + 1. 
pplaii_page gets ?blankline. 
do (page_advance) . 


end. (* 6.0 MANAGEMENT PLAN *) 
topic '7.0 SCHEDULE'. 

paqe count = 0. v 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_7 .DAT' ) . 

line is read line (?filename) . 


if ?line_count > 56 

then do (page_advance) . 

pplan _page gets ?blankline. 
pplan_page gets ?blankline. 
pplan_page gets ' 7.0 SCHEDULE'. 

pplan_page gets ?blankline. 
line_count = ?line_count + 4. 
while ?line <> ?eof 
then do (read_f ile) . 
close (?filename) . 
pplan _page gets ?blankline. 
line_count = ?line_count + l. 
do (page_ad vance) . 

end. (* 7.0 SCHEDULE *) 


topic '8.0 COST CONTROL PLAN'. 
page_count = o. 

filename = concat(C:\GARDEN\,?CURDIR, '\PPE4 8 l.DAT' ) 

line is read_line (?filename) . 

if ?line_count > 54 

then do (page_advance) . 

pplan_page gets ?blankline. 
pplanjpage gets ?blankline. 

pplan_page gets ' 8.0 IMPLEMENTATION PLAN'. 

pplan__page gets ?blankline. 
pplan_page gets ' 8.1 Resources'. 

pplan_page gets ?blankline. 
line_count = ?line_count + 6. 
while ?line <> ?eof 
then do (read_f ile) . 
close (?filename) . 
pplan_page gets ?blankline. 
line_count = ?line_count + l. 
if ?line_count > 56 

then do (page_ad vance) . 

pplan_page gets 

8.2 Summary Work Breakdown structure * . 
pplan_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat(C: \ GARDEN \,?CURDIR, ' \PPE4 8 2. DAT') 

line is read_line (?filename) . 

while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan_page gets ?blankline. 
line_count « ?line_count + l. 
if ?line_count > 56 

then do (page_advance) . 


pplan_page gets 

8.3 Cost Reporting and Control Structure'. 
pplan_page gets ?blankline. 

pplan_page gets ' 8.3.1 Nasa Reports'. 



pplan_page gets ?blan)cline. 

line count = ?line count + 4. 

filename = concat(C: \GARDEN\,?CURDIR, ' \E4_8_3_1.DAT ). 
pplan page gets ?blankline. 
line Is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line count = ?line_count + 1. 
pplan page gets ?blanlcline. 
if ?lIne_count >56 

then do (page_advance) . 


pplan_page gets ' 8.3.2 Contractor Reports'. 

pplan_page gets ?blankline. 
line count = ?line count +2. 

filename = concat (C: \ GARDEN \ , 7CURDIR, ' \E4_8_3_2 . DAT' ) . 
pplan page gets ?blan)cline. 
line Is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line count = ?line_count + 1. 
pplan page gets ?blankline. 
if ?lIne_count > 56 

then do (page_advance) . 

pplan_page gets ' 8.4 Cost Control Strategy'. 

pplan_page gets Tblankline. 
line count = ? line count +2. 

filename = concat (C : \GARDEN\,?CURDIR, '\PPE4_8_4.DAT ). 
pplan_page gets ?blankline. 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplan_page gets ?blanJcline. 
do (page_advance) . 


end. (* 8.0 COST CONTROL PLAN *) 


topic '9.0 PROJECT REVIEWS AND MEETINGS', 
page count = 0. 

filename = concat (C: \GARDEN\ ,?CURDIR, ' \E4_9_1_1.DAT' ) . 
line is read_line (?filename) . 
if ?line_count > 56 

then do (page_advance) . 


pplan_page gets ?blankline. 
pplan_page gets ?blankline. 
pplan_page gets ' 9.0 

pplan page gets ?blan3cline. 
pplan_page gets ' 8 . 1 

pplan page gets ?blankline. 
pplan^P a 9 e gets ' 9.1.1 

pplan_page gets ?blankline. 
line_count = ?line_count + 8. 
while ?line <> ?eof 


PROJECT REVIEWS AND MEETINGS' 
Management Reviews ' . 

Internal Reviews'. 


External Reviews'. 


then do (read_file) . 
close (?filename) . 
pplan _page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_ad vance) . 


pplan_jpage gets ' 9.1.2 

pplan _page gets ?blan*line. 
line_count = ?line_count + 2 . 
filename = concat (C: \GARDEN\ , 7CURDIR, ' \E4 9 1 2. DAT'), 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan _page gets ?blankline. 
line_count = ?line_count + l. 
if ?line_count > 56 

then do (page_advance) . 


Design and Readiness Reviews' 


pplan_page gets ' 9.1.3 

pplan_page gets ?blankline. 
line_count = ?line_count + 2. 
filename = concat (C: \GARDEN\ , ?CURDIR, '\E4 9 1 3. DAT') 
line is read_line (?filename) . ~ 

while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan _page gets ?blankline. 
line_count = ?line_count + l. 
do (page_advance) . 


end. (* 9.0 PROJECT REVIEWS AND MEETINGS *) 
end. (* display_PPLAN *) 

topic 'page_advance' . 

page_count = ?page_count + l. 

window_name = concat (? choice,' Page: ' , ?page count) . 
window ( ?window_name , white, blue, white, 3, 3 .78,19) . 
say (?pplan_page) . 
pplan_page = [ ] . 
pplan_page gets ?blankline. 
pplanpage gets ?blankline. 
line_count = 2. 
collect (). 
close_window () . 
end. (* page_advance *) 

topic 'read_file'. 
if ?line_count > 58 

then do (page_advance) . 
line = concat ( ' ',?line). 

pplan ^age gets ?line. 
line is read_line (?filename) . 
line_count = ?line_count + l. 
end. (* read_f ile *) 

end. (* display_Routine *) 



(* PPPRINT . KB is used to print all sections of the Project Plan. 

no_edit_key ( ) . 
no_debug ( ) . 

choice = ' ' . 

eof = number_to_char (26) . 

curdir is read_line ('CURDIR.DAT'). 

curdir is string_replace (? curdir, ' ','',8). 

blankline = ' ' ■ 

line_count = 0. 

page_count = 0. 

do (Print_Routine) . 

new_kb ( ' PPNASAM . HKB ' ) . 

topic ' Pr int_Rout ine ' . 


sections = 


['1.0 INTRODUCTION', 

'2.0 OBJECTIVE', 

'3.0 SCIENCE REQUIREMENTS ' , 

'4.0 TECHNICAL PLAN', 

'5.0 IMPLEMENTATION PLAN', 

'6.0 MANAGEMENT PLAN', 

'7.0 SCHEDULE', 

'8.0 COST CONTROL PLAN', 

'9.0 PROJECT REVIEWS AND MEETINGS', 
'PRINT ENTIRE DOCUMENT', 

'QUIT' ] . 


window ('Print Project Plan' , white, blue, white, 3, 3, 78,18) . 
while ?choice <> QUIT 

then do (print_sections) . 
close_window () . 
close all () . 


topic 'print_sect ions' . 
pplan_page = [ ] . 
ask ( ' #e 


Which section do you wish to print? ', choice, ?sections) . 

if ?choice = '1.0 INTRODUCTION' 
then 

window ( , white, red, yellow, 1, 16 ,27,4) 
and 

write ( 'con: ' , 'PRINT IN PROGRESS. . . ' ) 
and 

do ('1.0 INTRODUCTION') 
and 

if line_count > 2 
then do (page_advance) . 
close_window () . 

if ? choice = '2.0 OBJECTIVE' 
then 

window (, white, red, yellow, 1,16,27,4) 



and 

write ( ' con : ' , ' PRINT IN PROGRESS . . . ' ) 
and 

do (' 2.0 OBJECTIVE') 
and 

if line_count >2 
then do (page_ad vance) . 
close_window () . 

if ? choice = '3.0 SCIENCE REQUIREMENTS' 
then 

window (, white, red, yellow, 1, 16,27,4) 
and 

write ( ' con : ' , ' PRINT IN PROGRESS . . . ' ) 
and 

do ('3.0 SCIENCE REQUIREMENTS') 
and 

if line_count > 2 
then do (page_ad vance) . 
close_window () . 

if ? choice = '4.0 TECHNICAL PLAN' 
then 

window (, white, red, yellow, l, 16,27,4) 
and 

write ( 'con: ' , 'PRINT IN PROGRESS . . . ' ) 
and 

do ('4.0 TECHNICAL PLAN') 
and 

if line_count > 2 
then do (page_advance) . 
close_window () . 

if ? choice = '5.0 IMPLEMENTATION PLAN' 
then 

window (, white, red, yellow, 1, 16,27,4) 
and 

write ( 'con: ' , 'PRINT IN PROGRESS. . . ' ) 
and 

do ('5.0 IMPLEMENTATION PLAN') 
and 

if line_count > 2 
then 

do (page_advance) . 
close_window () . 

if ? choice = '6.0 MANAGEMENT PLAN' 
then 

window (, white, red, yellow, 1, 16,27,4) 
and 

write ( 'con: ' , 'PRINT IN PROGRESS. . . ' ) 
and 

do ('6.0 MANAGEMENT PLAN') 
and 

if line_count > 2 
then ~ 

do (page_advance) . 
close_window () . 

if ? choice = '7.0 SCHEDULE' 



then 


window (, white, red, yellow, 1,16,27,4) 
and 

write ( ' con : ' , ' PRINT IN PROGRESS . . . ' ) 
and 

do ('7.0 SCHEDULE' ) 
and 

if line_count > 2 
then 

do (page_advance) . 
close window () . 


if ? choice = '8.0 COST CONTROL PLAN' 
then 

window ( r white , red , yellow , 1 / 16 , 27 * 4 ) 
and 

write ( 'con: ' , 'PRINT IN PROGRESS. . . ' ) 
and 

do ('8.0 COST CONTROL PLAN') 
and 

if line_count > 2 
then 

do (page_advance) . 
close_window (). 

if ? choice = '9.0 PROJECT REVIEWS AND MEETINGS' 
then 

window (, white, red, yellow, 1, 16, 27 ,4) 
and 

write ( ' con : ' , ' PRINT IN PROGRESS . . . ' ) 
and 

do ('9.0 PROJECT REVIEWS AND MEETINGS') 
and 

if line_count > 2 
then 

do (page_ad vance) . 
close window () . 


If ? choice = 'PRINT ENTIRE DOCUMENT' 
then 

load ( 'pptitle.hkb' ) 
and 

do ( ' pr int_t it le_page ' ) 
and 

remove_topic ( ' pr int_t itle_page ' ) 
and 

page_count = 0 
and 

window (, white, red, yellow, 1, 16,27,4) 
and 

write ( 'con: ' , 'PRINT IN PROGRESS. • . ' ) 
and 

do ('1.0 INTRODUCTION') 
and 

do ('2.0 OBJECTIVE') 
and 

do ('3.0 SCIENCE REQUIREMENTS') 
and 


do ('4.0 TECHNICAL PLAN') 
and 

do ('5.0 IMPLEMENTATION PLAN') 
and 

do ('6.0 MANAGEMENT PLAN') 
and 

do ('7.0 SCHEDULE') 
and 

do ('8.0 COST CONTROL PLAN') 
and 

do ('9.0 PROJECT REVIEWS AND MEETINGS') 
and 

print (#p,' '). 

if ? choice = 'QUIT' 
then new Jcb ( ' PPNASAM . HKB ' ) . 

close_window () . 

end. (* print_sections *) 

topic '1.0 INTRODUCTION'. 
pplan_page gets ?blankline. 
pplan_page gets Tblankline. 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_1.DAT' ) . 
line is read_line (?filename) . 
pplan _page gets ' 1.0 INTRODUCTION'. 

pplan_jaage gets ?blankline. 
line_count = 4. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan_page gets Tblankline. 
line_count = ?line_count + 1. 
if ?line_count > 52 

then do (page_advance) . 
end. (* INTRODUCTION *) 

topic '2.0 OBJECTIVE'. 

pplan_page gets ?blankline. 
pplanjpage gets ?blankline. 
pplan_page gets ' 2.0 OBJECTIVE'. 

pplan_page gets ?blankline. 
line_count = ?line_count + 4. 

filename = concat (C: \GARDEN\ , 7CURDIR, '\PPE4 2. DAT'), 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 52 

then do (page_advance) . 

end. (* OBJECTIVE *) 

topic '3.0 SCIENCE REQUIREMENTS ' . 
pplan_page gets ?blankline. 
pplan_page gets Tblankline. 

pplan _page gets ' 3.0 SCIENCE REQUIREMENTS'. 



pplan_page gets ?blankline. 

line count = ?line count + 4. . 

filename = concat(C:\GAEDEN\,?CDRDIR ( '\PPE4_3.DAT') 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan_page gets ?blan)cline. 
line_count = ?line_count + 1. 
if ?line_count > 52 

then do (page_advance) . 

end. (* SCIENCE REQUIREMENTS *) 


topic '4.0 TECHNICAL PLAN' . 
pplan_jpage gets ?blankline. 

SSSJS5 52 ^'^““eCHNICAL PLAN' . 

pplanjage gets ; blank 4.1 Experiment Hardware Description' 
pplan_page gats ?blan)cline* 
line count = ?line count + 6 * 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_4_1.DAT ). 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan_page gets ?blankline. 

line count = ?line count + 1 . 

if ?line_count > 52 

then do (page_advance) . 

pplan_j>age gets ' 4.2 Payload classification'. 

pplan_page gets ?blankline. 

line count = ?line count + 2 . . 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_4_2.DAT ). 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
pplan_page gets ?blanlcline. 
line_count = ?line_count + 1 . 
if ?line_count >52 

then do (page_advance) . 

pplan_page gets ' 4.3 Development Approach'. 

pplan_page gets ?blankline. 

line count = ?line count + 2 . _ ^ \ 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_4_3 .DAT ). 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
pplan page gets ?blan)cline. 
line count = ?line_count + 1 . 
if ?Tine_count > 52 

then do (page_advance) . 


pplan_page gets 


4.4 Technology Plan' 


pplan_page gets ?blankline. 
line_count = ?line_count + 2. 

f ilename = concat ( C : \ GARDEN \ , 7CURDIR , ' \PPE4_4_4 . DAT ' ) . 
line is read_line (?filename) . _ 

while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplan^page gets ?blankline. 
if ?lTne_count > 52 

then do (page_advance) . 

pplan_page gets ' 4.5 Logistics ' . 

pplan_page gets ?blankline. 
line_count * ?line_count + 2. 

filename = concat (C: \ GARDEN \ , 7CURDIR, ' \PPE4_4_5.DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplan^page gets ?blankline. 
if ?lTne_count > 52 

then do (page_ad vance) . 

pplan_page gets ' 4.6 Mission Operations, Training and Data Management 

pplan_page gets ?blankline. 
line_count = ?line_count +2. 

filename = concat (C: \GARDEN\ , 7CURDIR, • \PPE4_4_6.DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line_count + 1. 
pplan^page gets ?blankline. 
if ?lTne_count > 52 

then do (page_advance) . 

pplan_page gets ' 4.7 Analysis of Mission Results'. 

pplan_page gets ?blankline. 
line_count = ?line_count + 2. 

filename * concat (C : \GARDEN\ , 7CURDIR, ' \PPE4_4_7 . DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplan^page gets ?blankline. 
if ?lTne_count > 52 

then do (page_advance) . 

pplan_page gets ' 4.8 Facilities'. 

pplan_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_4_8 . DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line count = ?line count + l. 



pplan_page gets ?blankline. 
if ?line_count > 52 

then do (page_advance) . 


pplan_page gets ' , 4 * 9 Safety . 

pplan__page gets ?blankline. 
line count — ?line count + 2. 

f ileHame = concat (C : \GARDEN\ , 7CURDIR, ' \PPE4_4_9 . DAT ' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_f ile) . 
close (?f ilename) . 

line count = ?line count + 1* 

pplan_page gets ?blankline. 
if ?line_count > 52 

then do (page_advance) . 

end. (* TECHNICAL PLAN *) 

topic '5.0 IMPLEMENTATION PLAN'. 
pplan_page gets ?blankline. 
do lan page gets ?blankline. 

pplanjpage lets ' 5 . 0 IMPLEMENTATION PLAN', 

pplan page gets ?blankline. 

pplanjpage lets ' 5.1 Implementation Approach . 

pplan_page gets ?blankline . 

line count = ?line count + 6. Mfn# . 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_5_1.DAT ). 

line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_f ile) . 
close (?f ilename) . 
pplan_page gets ?blankline. 
line count = ?line_count + 1. 
if ?line_count > 52 

then do (page_advance) . 

pplan _page gets ' 5.2 Summary Work Breakdown Structure' 

pplan_page gets ?blankline. 

line count = ?line count + 2. . . 

filename = concat (C: \GARDEN\,?CURDIR, ' \PPE4_5_2 .DAT ). 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line count = ?line_count + 1. 
pplan page gets ?blankline. 
if ?l!ne_count > 52 

then do (page_advance) . 

pplan_page gets ' 5.3 Documentation', 

pplan gsts ?blankline. 

line count = ?line count +2. _ _ _ , x 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_5_3 .DAT ). 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line count = ?line_count + 1. 



pplan page gets ?blankline. 
if ?lTne_count > 52 

then do (page_advance) . 

end. (* IMPLEMENTATIN PLAN *) 


topic *6.0 MANAGEMENT PLAN*. 
pplan_page gets TblanXline. 
pplanpage gets ?blankline. 
pplan_jpage gets ' 6.0 MANAGEMENT PLAN ' . 

pplan page gets ?blankline. ....... 

pplanj>age gets ' 6.1 Project Management Responsibilities 

pplan_page gets ?blankline. 
line count » ?line_count + 6. 

filename = concat (C:\GARDEN\,?CURDIR, '\PPE4_6_1.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 52 

then do (page_advance) . 


and Organ iz at 


pplan_page gets ' 6.2 Mission Management Resopnsibilities and Organizat 

pplan_page gets ?blartfcline. 
line count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_6_2.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplan page gets ?blankline. 
if ?lTne_count > 52 

then do (page_advance) . 


end. (* MANAGEMENT PLAN *) 


topic '7.0 SCHEDULE'. 

pplan_page gets ?blankline. 
pplan_page gets ?blankline . 
pplan_jpage gets ' 7.0 SCHEDULE'. 

pplan_page gets ?blankline. 
line count = ?line_count + 4. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_7.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan__page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 52 

then do (page_advance) . 


end. (* SCHEDULE *) 



topic '8.0 COST CONTROL PLAN', 
pplan page gets ?blankline. 
pplan”page gets ?blankline. 

pplan_page gets ' 8.0 COST CONTROL PLAN . 

pplan page gets ?blankline. 
pplan^page gets ' 8.1 Resources'. 

pplan_page gets ?blankline. 
line count = ?line count + 6. 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_8_1.DAT ). 
line is read line (?f ilename) . 


while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
pplan_page gets ?blankline. 
line count = ?line_count + 1. 
if ?line_count > 52 

then do (page_advance) . 


pplan_page gets ' 8.2 Cost Control Guidelines'. 

pplan_page gets ?blankline. 
line count = ?line count + 2. 

filename = concat (C: \GARDEN \ , 7CURDIR, ' \PPE4_8_2 .DAT ). 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line count = ?line_count + 1. 
pplan page gets ?blankline. 
if ?lTne_count > 52 

then do (page_advance) . 


pplan_page gets ' 8.3 Cost Reporting and Control 

pplan pag© g©ts ?blan)cline. 

pplan page gets ' 8.3.1 Nasa Reports'. 

pplan”page gets ?blankline. 
line count = ?line count +4. 

filename = concat (C : \GARDEN\ , 7CURDIR, '\E4_8_3_1.DAT ). 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplan_page gets ?blankline. 
if ?line_count > 52 

then do (page_ad vance) . 


Structure ' 


pplan_page gets ' 8.3.2 Contractor Reports'. 

pplan_page gets ?blankline. 
line count = ?line_count +2. 

filename = concat (C : \GARDEN\ , 7CURDIR, '\E4_8_3_2.DAT ). 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplaii_page gets ?blankline. 
if ?lTne_count > 52 

then do (page_advance) . 

• 8.4 Cost Control Strategy'. 


pplan_page gets 


pplanjpage gets ?blankline. 
line_count * ?line_count + 2. 

f ilename = concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_8_4 . DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
pplanjpage gets ?blankline. 
if ?line_count > 52 

then do (page_ad vance) . 

end. (* COST CONTROL PLAN *) 

topic '9.0 PROJECT REVIEWS AND MEETINGS ' . 
pplan_page gets ?blankline. 
pplan_page gets ?blankline. 

pplan_page gets ' 9.0 PROJECT REVIEWS AND MEETINGS'. 

pplan_page gets ?blanXline. 

pplan_page gets ' 9.1 Management Reviews'. 

pplan_page gets ?blankline. 

pplan jpage gets ' 9.1.1 Internal Reviews', 

pplanjpage gets ?blankline. 
line_count = ?line_count + 8. 

filename = concat (C: \GARDEN\, 7CURDIR, ' \E4_9_1_1.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
pplanjpage gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 52 

then do (page_advance) . 

pplanjpage gets ' 9.1.2 External Reviews', 

pplanjpage gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C : \GARDEN\,?CURDIR, '\E4_9_1_2.DAT') . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_covint + 1. 
pplanjpage gets ?blankline. 
if ?lTne_count > 52 

then do (page_advance) . 


pplanjpage gets ' 9.1.3 Design and Rediness Reviews' 

pplanjpage gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \E4_9_1_3 .DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_f ile) . 
close (?f ilename) . 
line_count = ?line_count + l. 
pplanjpage gets ?blankline. 
do (page_advance) . 



end. (* PROJECT REVIEWS AND MEETINGS *) 

end. (* Print_PPLAN *) 

topic , page_advance' . 

page_coiint = ?page_count + 1. 
page_line — concat ( ' 
while ?line_count < 58 
then 

pplan_page gets ?blankline 
and 

line count = ?line_count + 1. 
if ? choice = ' PRINT ENTIRE DOCUMENT' 
then 

pplan_page gets ?page_line. 
print (#p,?pplan_page) . 
pplan_page = [ ] • 
pplan page gets ?blan)cline. 
pplan page gets ?blankline. 

1 ine_count = 2 . 
collect ( ) . 

end. (* page_advance *) 

topic 'read_file' . 
if ?line_count > 56 

then do (page_advance) . 
line = concat (' ',?line). 

pplan_page gets ?line. 
line is read_line (?filename) . 
line_count = ?line_count + 1. 
end. (* read_file *) 

end. (* Print_Routine *) 


' , ?page_count) . 


(* PPTITLE . KB prints the Title Page for the Project Plan *) 

(* no_edit_key (). *) 

(* no_debug () . *) 

topic 'print_title_page / . 
no_edit_key () . 

filler = ' , 

eof = nvunber_to_char (26) . 

blankline = ' , 

% 

expname is read ( concat ( C : \GARDEN\ , ?CURDIR, ' \TITLE.DAT' ) ) . 

expname is stringreplace (?expname, ' ' , " , 600 ) . 

expname is remove (? expname, ' ') . 

lines = list_length(?expname) . 

line_count =1. 

title_length = 0. 

window (, white, red, yellow, 1,16,27,4) . 
write ( 'con: ' , 'REPORT BEING PRINTED. . . ' ) . 

while ?line_count <= ? lines 
then 

cur _ 1 i ne = element (?expname,? line count) 
and — 

cur_lngth = string_length(?cur line) 
and — 

line_count = ?line_count + l 
and 

titl^iength = ?title length + ?cur lnqth + l 
and — — 

if ?cur_line = • • 
then 

expname = string_replace(?expname,?cur line), 
expname = concat (element ( ? expname , 1) , , ~ 

element ( ? expname , 2 ) , ' - ' , 
element ( Texpname , 3 ) , ' - ' , 
element ( ? expname , 4 ) , ' - ' , 
element ( ? expname ,5)/-', 
element ( ? expname , 6) , ' ~ • , 
element ( ?expname , 7) , , 
element ( ? expname , 8 ) , ' - ' , 
element ( ?expname , 9 ) , ' - ' , 
element ( ?expname , 10 ) , ' - ' , 
element (?expname, 11 ) , , 
element ( ? expname , 12 ) , ' - 7 , 
element ( ? expname , 13 ) , • - • , 
element (?expname, 14) , • , 
element (?expname, 15) ) . 

title_length = ?title_length + 3. 
counter = l. 
write_counter = l. 
line_one = ' • . 

while ?counter < ?title length 
then 

char = str ing_copy ( ? expname , ?counter , 1 ) 
and 

counter = ? counter + l 



/ / 


and 

write_counter = ?write_counter + 1 
and 

if ?write_counter > 40 and ?char = 
then 

linelgth = string_length(?line_one) 
and 

linelgth = 80 - ? linelgth 
and 

linelgth = ? linelgth / 2 
and 

linefiller = string_copy (?blankline, 1, ?linelgth) 
and 

line one — concat (? linefiller ,?line_one, '#n' f ? char) 
and 

write_counter = 1 
and 

new_expname gets ?line_one 
and 

line_one - ' ' 
else 

line_one = concat (?line_one,?char) . 

linelgth = string_length(?line_one) . 
linelgth = 80 - ? linelgth. 
linelgth = ?linelgth / 2. 

linefiller = string_copy (?blankline, 1, ?linelgth) . 
line_one = concat (?linef iller , ?line_one, '#n ' ) . 

new_expname gets ?line_one. 

new_expname = string_replace(?new_expname, ' ,600). 
authorfile = concat (C: \GARDEN\ , ?CURDIR, ' \AUTHOR.DAT' ) . 
titlepage = ( '#n#n#n#n#n#n#n#n#n#n#n#n#n # ) . 

titlepage gets ' Project Plan' 

titlepage gets • for:'. 

titlepage gets ' ' . 

titlepage gets ?new_expname. 

titlepage gets '#n#n'. 

pagedate = ?date. 

mo_num = element (?pagedate, 1) . 

if ?mo_num = 1 

then month = January 
else 

if ?mo_num = 2 

then month = February 

else 

if ?mo_num = 3 
then month = March 
else 

if ?mo_num = 4 
then month = April 
else 

if ?mo_num = 5 
then month = May 
else 

if ?mo_num = 6 
then month = June 
else 


if ?mo_num = 7 
then month = July 
else 

if ?mo_num = 8 
then month = August 
else 

if ?mo_num = 9 

then month = September 

else 

if ?mo_num = 10 
then month = October 
else 

if ?mo_num = ll 

then month = November 

else 

if ?mo_num = 12 

then month = December 

else 

month = ' • . 

year = element (?pagedate, 3) . 
reportdate = concat ( ?month , ' ',?year). 

datelgth = string_length(?reportdate) . 
datelgth = 80 - ?datelgth. 
datelgth = ?datelgth / 2. 

datefiller = string copy (?blankline, 1, ?datelgth) . 
titlepage gets ' ' . 
titlepage gets ' ' . 

titlepage gets concat (?datef iller, ?reportdate) . 

basefile = concat ( 'C: \GARDEN\ * , 7CURDIR, ' \BASELINE.DAT' ) . 
baseline = read(?basefile) . 
if ?baseline = ?eof 
then 

baseline = 'N/A' . 

datelgth = string_length(?baseline) . 
datelgth = 80 - ?datelgth. 
datelgth = ?datelgth / 2. 

datefiller = string_copy (?blaknline, 1, ?datelgth) . 
titlepage gets ' ' . 

titlepage gets ' Baselined: 

titlepage gets concat (?datef iller, ?baseline) . 

name is read_line (?authorf ile) . 

name is str ing_replace ( ?name , • NAME : • , • • , i ) . 

name is string replace (?name , • • , • • ,8) . 

namelgth = strTng_length(?name) . 

namelgth = 80 - ?namelgth. 

namelgth = ?namelgth / 2. 

namefiller = stringcopy (?blankline, 1, ?namelgth) . 

titlepage gets concat ( '#n#n#n#n#n#n#n#n#n#n#n#n # , ?namef iller , ?name) . 
organization is read_line (?authorf ile) . 

organization is str ing_replace(?organization, 'ORGANIZATION: / ,' / ,l). 

organization is string replace (?organization, ' , , /, ,8). 

organizationlgth = strTng_length(?organization) . 
organizationlgth = 80 - ?organizationlgth. 
organizationlgth = ? organizationlgth / 2. 

organizationf iller = string_copy (?blankline, 1, ?organizationlgth) . 



titlepage gets concat (?organizationfiller ^organization) . 

incode is read_line (?authorfile) . 
incode is string_replace (?mcode, 'MAIL CODE: 
mcode is string replace (?mcode, ' , 8 ) , 

mcodelgth = strIng_length(?mcode) . 
mcodelgth = 80 - ?mcodelgth. 
mcodelgth = ?mcodelgth / 2 . 

mcodefiller = string_copy (?blankline, l,?mcodelgth) . 
titlepage gets concat (?mcodef iller , ?mcode) . 

street is read_line (?authorf ile) . 

street is str ing_r eplace ( ? street , ' STREET : ' 

street is string_replace (?street , ' ' , ' ' , 8) . 

streetlgth = string_length(?street) . 
streetlgth = 80 - ?streetlgth. 
streetlgth = ?streetlgth / 2. 

streetf iller = string_copy (?blankline, 1,? streetlgth) . 
titlepage gets concat (?streetf iller ,?street) . 

city is read_line (?authorf ile) . 

city is str ing_replace (?city , 'CITY, STATE, ZIP: ',",1)* 

city is string_replace(?city, ' ',8). 

city is string replace (?city , ' ' ',8). 

citylgth = strlng_length(?city) . 

citylgth = 80 - ?citylgth. 

citylgth = ?citylgth / 2 . 

cityf iller = string_copy (?blankline, 1, ?citylgth) . 
titlepage gets concat (?cityf iller, ?city) . 

phone is read_line (?authorf ile) . 

phone is str ing_replace ( ?phone , 'PHONE: ' , ' ' , 1) 

phone is string replace (?phone, ' ',",8). 

phonelgth = strTng_length(?phone) . 

phonelgth * 80 - ?phonelgth. 

phonelgth = ?phonelgth / 2. 

phonefiller = string_copy (?blankline, 1, ?phonelgth) . 
titlepage gets concat (?phonef iller, ?phone) . 

print (#p,?titlepage,#p) . 
close_window ( ) . 
end. (* print_title_page *) 



( *PPFILLM . KB This is the menu provided to the user to *) 
(* determine what he/she is to do on a *) 
(* project. *) 


no_edit_key ( ) . 

no_debug () . 

fdaction = ' ' . 

curdir is read_line ( ' CURDIR . DAT ' ) . 

curdir is string_replace (? curdir , ' ','',8). 

while ?fdaction <> 'Exit System' 
then do (filldoc) . 

topic 'filldoc'. 

fdchoices = ['Enter Project Initialization Information', 
'Complete Project Plan', 

'Return to Previous Menu', 

'Return to Main Menu', 

'Exit System']. 

window (, white, red, yellow, 5,5,75,16) . 
set_number_of _values ( fdaction , 1 ) . 

ask ( [ ' #e #s 

Please select the activity you wish to perform on #n 
the' ,?curdir, '#dproject. '] , fdaction, ?fdchoices) . 

close_window () . 

if ?fdaction = 'Enter Project Initialization Information' 
then new_kb ( 'Pinitial.hkb' ) . 

if ?fdaction = 'Complete Project Plan' 
then new_kb ( ' ppguest 2 . hkb ' ) . 

if ? fdaction = 'Return to Main Menu' 
then new_kb ( 'nasaplan.ckb' ) . 

if ?fdaction = 'Return to Previous Menu' 
then new_kb ( ' ppnasam . hkb ' ) . 

if ?fdaction = 'Exit System' 
then exit () . 



( *PINITIAL . KB 

(* 

(* 


This program is used to allow the user 
to enter standard project initialization 
information, i.e. name, address, title, etc. 


*) 

*) 

*) 


no_edit_key ( ) . 

curdir is^read_line ( ' CURDIR.DAT ' ) • ^ 

curdir = string_replace (?curdir , , » )• 


eof = number_to_char (26) . 
yn is [YES, NO] . 
chgwant = ' ' • 


do ( persona l_info) . 
new kb ( 'PPFILLM.hkb' ) • 


topic 'personal_info‘ 


blankline = ' . ' ♦ 

(concat ( C : \ GARDEN \ , 7CUSDIR , ' \AUTHOR • DAT ' ) > 

if ?oldtext = ?eof 

then do (new_personal) 
else 

chgwant = ' ' 

and 

while ?chgwant <> QUIT 

then do (edit_personal) . 


================== get new personal information 




t0 £ilTE n ('^n:'?"?ein the window below, please provide some general information 
about yourself and your experiment. 


window (, white, red, yellow, 5, 5, 75, 16) . 


read response ('#e . . - 1ae!t names i.e. Dr. John Doe.#d 

#fyellow Please enter your first and last names, , #naaie#? 

blankline) . 

name = concat ('NAME: ',?name). 

personal gets ?name. 


rea #fyellow S piease enter the name of your organisation.* 

?blankline) . 


organization = concat ('ORGANIZATION: 
personal gets ?organization. 


' , ?organization) . 


read response ( ' #e . p n Box room n umb er , or other needed 

#fyellow Please enter the mail code, P.0 Box, room numc , 

address information of your organisation.*, >Bail _ co<Je# ?b i a nXline) . 


mail_code = concat ('MAIL CODE: 
personal gets ?mail_code. 


' ,?mail_code) . 



read_response ( ' #e 

#f yellow Please enter the street address of your organization. #d 

#n' , street, 
?blankline) . 

street = concat (' STREET: ',? street), 

personal gets ? street. 


read_response ( ' #e 

#fyellow Please enter the city, state, and zip code of your organization. 

#n ' , city_st_z ip , 
?blankline) . 

city_st_zip = concat ( ' CITY , STATE, ZIP: ',?city st zip). 
cxty_st_zip = string_replace (?city st zip' ' ~ '~8) 
personal gets city_st_zip. ~ “ ' 

read_response ( ' #e 

#f yellow Please enter your phone number. #d 

#n ' , phone , 

phone = concat ('PHONE: ',?phone) ?blankline) . 

personal gets ?phone. 

say ('#e 


Please enter the title of your experiment. 


Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC/d to leave the editor, and #f yellow RETURN#d to confirm save 


edit_f ile (concat (C: \GARDEN\ , ?CDRDIR, ' \TITLE.DAT' ) .yellow, black, red, 9 ,11,70 

?city^st^zipf# n [?phonef/n}? ^gani^ati0n, ?Bail — code ' ? street , /n, 

new_flle (concat (C: \GARDEN\ , 7CURDIR, ' \ AUTHOR . DAT ' ) ) 
write (concat (C: \ GARDEN \,?curdir, '\AUTHOR.DAT') ,?author info #n) 
close (concat (C: \GARDEN\ , 7CURDIR, '\AUTHOR.DAT')) “ '* * * 


if ?chgwant <> QUIT 
then 
ask 

( [ 7 author__inf o , '/n #f yellow 

The information listed has been written to a file. 

Do you wish to change any of these entries?**' 1 
changeagain, ?yn, 60 , 16 ) 
and 

if ?change_again = YES 
then 

oldtext is read (concat (C: \GARDEN\ , 7CURDIR, '\AUTHOR.DAT') ) 

change_again = NO 
and 

chgwant = ' • 

and 

while ?chgwant <> QUIT 
then 

do (edit_personal) . 


close_window () . 



WRITE ('con:','#e ')• 

end. (* new_personal *) 

(* - = == = = get corrected personal information ============= 

topic 'edit_personal' . 

change_info is [NAME, ORGANIZATION, 'MAIL CODE', STREET, 'CITY STATE ZIP 
PHONE, TITLE, QUIT] . 

ask ( 'Which entry in the below list do you wish to change? ', chgwant , 
?change_info) . 


if ?chgwant = NAME 
then 

old_name = element (?oldtext, 1) 
strict 

old value = string_replace (?old_name, 'NAME: 
and 

read_response ( [ ' #e 




^fvellow^Your^original entry for name was*s', ?old_value, '.#d#s#n#n 
MeSse enter thSiirrected name in its entirety.#n #o' ] ,new_name,?old_value) 


if ? chgwant = NAME 
then 

new name = concat ( ' NAME : 
and 

oldtext is replace (?oldtext. 


• , ?new_name) 
?old name , ?new_name) . 




if ? chgwant = ORGANIZATION 
then 

old org — element (?oldtext, 2) 

old value = string_replace (?old_org, 'ORGANIZATION: 
and 

#fyellow — Your°original entry for organization was#s #n', ?old_value, 

Please eSter the corrected organization in its entirety. #n' ] ,new_org,?old_valu 

if ? chgwant = ORGANIZATION 
then 

new org = concat ('ORGANIZATION: 

and , _ . 

oldtext is replace ( ?oldtext , ?old_org , . new_org) . 

if ? chgwant = 'MAIL CODE' 
then 

old_mc = element (? oldtext, 3) 

old_value = string_replace (?old_mc, 'MAIL CODE: 
and 

read response (['#e . , , 

#fyellow Your original entry for mail code wasrs yn , . 

Please^enter * the^corrected mail code in its entirety.*.' ] ,new_mc,?old_value) . 


' , ?new_org) 


, 1 ) 



if ?chgwant = 'MAIL CODE' 
then 

newjnc = concat ('MAIL CODE: ',?new me) 

and ~ 

oldtext is replace ( ?oldtext , ?old_mc , ?new_mc) . 

if ?chgwant = STREET 
then 

old_street =■ element (?oldtext, 4 ) 
and 

ol<J _ va lue = string_replace (?old street, 'STREET: ' " 1 ) 

and — ii) 

read_response ( [ ' #e 

#fyellow Your original entry for street was/s #n' , "> 
old_value, ' .#d #s #n#n 

Please enter the corrected street address in its entirety. #n' ] .new street 


if ?chgwant = STREET 
then 

new_street = concat ('STREET: ',?new street) 

and — 

oldtext is replace (?oldtext, ?old_street, ?new_street) . 

if ?chgwant = 'CITY STATE ZIP' 
then 

old__city = element (?oldtext, 5) 
and 

°ld_ v alue = string_replace (?old city, 'CITY, STATE, ZIP: ' " l) 
and — it*-) 

old d v^lue?”?#d ( #s # #n^ Yell ° W YOUr original entry for city ' sta te and zip was 

new^city^?old^value^f eCted City ' StatG ' and 2ip address in its entirety . #n '] , 

if ?chgwant = 'CITY STATE ZIP' 
then 

new_city = concat ('CITY, STATE, ZIP: ',?new city) 
and — 

new_city = string_replace (?new city,' ' • ',8) 
and “ 

oldtext is replace (?oldtext, ?old_city, ?new_city) . 


if ?chgwant = PHONE 
then 

old_phone = element ( ?oldtext , 6 ) 
and 

old _ value = string_replace (?old phone, 'PHONE: • • • i\ 

and ' ' ' 

r ?^ d - r ? SP °!r lS ^ ( i f fyellow Your original entry for phone was#s #n', ? 
old_value , • . #d #s #n#n 

Please enter the corrected phone number in its entirety. #n' 1 
new_phone, ?old_value) . 

if ?chgwant = PHONE 
then 

newphone = concat ('PHONE: ',?new phone) 

and 

oldtext is replace (?oldtext, ?old_phone, ?new_phone) . 



if ?chgwant = 'TITLE' 
then 

say ( ' #e 


Please enter the corrected title of your experiment. 


an tdit_file (concat (C: \GARDEN\ , 7CURDIR, ' \TITLE.DAT' ) , yellow, black , red, 5,9,70, 


if ?chgwant = QUIT 
then 

new_f ile (concat 

and 

write (concat 

and 

close ( concat 


(C: \GARDEN\ , ?CURDIR, '\AUTHOR.DAT' ) ) 

(C: \GARDEN\ , 7CURDIR, ' \ AUTHOR . DAT ' ) , ?oldtext , #n) 
(C: \GARDEN\ , 7CURDIR, ' \AUTHOR.DAT' ) ) . 


if ?chgwant — QUIT 
then 
say 

( [?oldtext, '#f yellow 

Please press 


The information listed has been written to a file 
#f lightgreen SPACE#d #fyellow to continue. 


end. (* editjpersonal *) 


end. (* personal_info *) 

/* === end personal information 


(* PPQUEST2 . KB *) 

(* Plan* 6re ^ 9uestion to be asked the completion of the Project 

column = 2 . 
row = 2. 
no_edit_key ( ) . 
no_debug () . 

curdir is read_line ('CURDIR.DAT'). 
curdir = string_replace (?curdir , ' • , ' ' , 8 ) . 


*) 

*) 


menu_choice = ' • . 

f s , l/ 1 - 0 General', ' 2.0 Preparation and Approval - 
.0 Changes ,4.0 Content' , 'Return to Previous Menu'], 
while menu_choice <> 'Return to Previous Menu' 
then 

do (outline) . 


topic 'outline', 
column = ?column + l. 
row = ?row + 1. 

window ('Complete Project Plan' 
ask ('#e 


white, blue, white, ?row, ?column, 76 , 17 ) . 


Which section do you wish to address?' ,menu_choice, ?menu_opt ion) 

if ?menu_choice = 'l.o General' 
then do ('l.o General'). 

if ?menu choice = '2.0 Preparation and Approval' 
then do ('2.0 Preparation and Approval'). 

if ?menu_choice = '3.0 Changes' 
then do ('3.0 Changes ' ) . 

if ?menu_choice = '4.0 Content' 
then do ('4.0 Content ' ) . 

if ?menu_choice = 'Return to Previous Menu' 
then new_kb ( 'ppf illm.hkb' ) . 

column = ? col umn - i . 

row = ?row - i. 

close_window () . 

end. (* outline *) 

DO (OUTLINE) . 


(*== 


=== THREADED TOPICS == 


topic 'l.o General'. 

say d °^'#e 10 Genera1, ' white f re d'yel lo w,?c°lumn,?row,76,l7) 




, uc . n . Tlie Microgravity Science and Applications Division 
^ ^ e( 5 u ^- res that a MSAD Project Plan be submitted and 

to P Jn V Mcan ri0rt0 ^ making a major commitment of resources 
to an MSAD project. MSAD Project Plans are to be prepared 



in final draft form for the Requirements Definition Review 
#40RDR#41. 


Press #f yellow SPACE#d to continue' ]). 


end. (* General *) 


window ('^^Preparation and P Approval' , white, red, yellow, ?column, ?row, 76, 17) 
say ('#e 

Plans will be prepared and submitted for all flight 
experiments. Project plans will be reissued, r “J* 1 **®*' ( k 
amended for reflights depending on th f complexity ° f £ask. 

A plan#39s preparation is the responsibility of the designated 
Project Manager at the responsible NASA center. The Project 
Manager will sign the MSAD Project Plan as the preparer; the 
Project Scientist and the Principal Investigator will sign as 
concurring. The MSAD Project Plan will be signed 
NASA center prior to submission to Headquarters by the appro 
priate center#39s authorities. When the Program Scientist and 
Proqram Manager sign to register their concurrence , the MSAD 
Pro jet Plan will be submitted to the MSAD Director for approval. 


Press #f yellow SPACE#d to continue'). 


close_window () . 

end. (‘Preparation and Approval *) 


topic '3.0 
window ( ' 3 
say ( [ ' #e 


Changes'. „ _ __ 

, 0 Changes' , white, red, yellow,? column, ?row, 7 6, 17) 


The Project Manager is responsible for updating a MSAD 
Project Plan when significant changes occur (such as changes 
in scope, organization, or roles and responsibilities). Thi 
does not apply to resources, schedules or manpower, which 
are updated through normal budgeting and project monitoring 
activities. The Projet Manager will establish a change control 
process for maintaining the MSAD Project Plan and other project 
documentation . 


Press #f yellow SPACE#d to continue']). 


close_window () . 
end. (* Changes *) 


topic '4.0 Content ' . 
new_kb ( ' content . hkb ' ) . 
end. (* content *) 


topic 'Return to Previous Menu'. 

new_kb ( 'ppf illm.hkb' ) . 

end. (* Return to Previous Menu *) 



(* 

(* 


DISPCONT . KB *) 

This file displays the 


Content Section of the Project Plan 


*) 


column = 3. 
row = 3. 
no_edit_key ( ) . 
no_debug () . 

do (Content) . 


topic 'Content'. 

menu - option2 is [ ' INTRODUCTION' , 'OBJECTIVE' , ' SCIENCE REQUIREMENTS' 
'TECHNICAL PLAN' ,' IMPLEMENTATION PLAN' , 'MANAGEMENT PLAN ',' SCHEDULE 
'COST CONTROL PLAN ',' PRO JECT REVIEWS AND MEETINGS' , 'RETURN' ] . 


while ?menu_choice2 <> 'RETURN' 
then do (outline2) . 


topic ' outline2 ' . 

window ('4.0 Content ' , white , blue , white , ? column , ?row ,76,18). 

ask ( 9 

The following outline provides guidelines on the 
content, organization and format of the MSAD Project 

Plan. ' , . 

menu_choice2 , ?menu_option2) . 

if ?menu_choice2 = 'INTRODUCTION' 
then do ('Introduction'). 

if ?menu_choice2 = 'OBJECTIVE' 
then do ( ' Ob j ective ' ) . 

if ?menu_choice2 = 'SCIENCE REQUIREMENTS' 
then do ('Science Requirements'). 

if ?menu_choice2 = 'TECHNICAL PLAN' 
then new_kb ( 'disptech.hkb' ) . 

if ?menu_cho i ce 2 = 'IMPLEMENTATION PLAN' 
then new_kb ( ' dispimp . hkb ' ) . 

if ?menu_choice2 — 'MANAGEMENT PLAN' 
then new_kb ( ' dispmgt . hkb ' ) . 

if ?menu_choice2 = 'SCHEDULE' 
then do ( ' Schedule' ) . 

if ?menu_choice2 = 'COST CONTROL PLAN' 
then new_kb ( 'dispcost.hkb' ) . 

if ?menu_choice2 = 'PROJECT REVIEWS AND MEETINGS' 
then new_kb ( 'disprrev.hkb' ) . 

if ?menu_choice2 = 'RETURN' 
then new kb ( 'ppout.hkb' ) . 


close_window ( ) . 
end. (* Content *) 


topic 'Introduction', 
column = ?column + 1. 
row = ?row + 1. 
window ('4.1 Introduction ' 
say ([' 


, blue , white , white , ?column , ?row ,73,15). 


Describe the relevance of the investigation and 
provide a summary rationale as to why a flight experi- 
ment is required (limit to one page). 


Press #f yellow SPACE#d to continue']). 

close_window () . 
column = ? column - l. 
row = ?row - l. 
end. (* introduction *) 


topic 'Objective', 
column = ? col umn + i . 


row = ?row + 
window ('4.2 
say ([' 


1 . 

Objective' , blue, white, white, ?column, ?row, 75 , 17 ) 


Define the overall objectives of the flight experi- 
ment (s) ; if more than one flight is requested, indicate 
the specific objectives of each flight. 


Press ft yellow SPACE#d to continue']). 

close_window () . 
column = ?column - l. 
row = ?row - l. 
end. (* Objective *) 


topic ' Science Requirements ' . 
column = ? column + l. 
row = ?row + l. 

window ('4.3 Science Requirements' 
say ( [ ' 


,blue,white,white,?column,?row,75, 17) . 



Summarize the science requirements against which the 
hardware will be buiit and reference the applicable Science 
Requirements Document (s) . 


Press #fyellow SPACE#d to continue']). 


close_window () . 
column = ? column - 1. 
row = ?row - 1. 

end. (* Science Requirements *) 

topic ' Schedule ' . 
column = ?column + l. 
row = ?row + 1. 

window ('4.7 Schedule' , blue, white,white, ?column,?row, 72 , 17) . 
say (' 


Provide an overall project master schedule that 
includes the flow of hardware and software into the 
system integration and test activity. Identify the 
Headquarters and mission management center controlled 
milestones. To the extent possible, tie the schedule 
to the WBS and overlay the procurement and NASA budget 
cycles. Provide a narrative describing the schedule 
and overall project flow. 

Press #fyellow SPACE#d to continue'). 


close_window () . 
column = ? column - l. 
row = ?row - l. 
end. (* Schedule *) 



(* DISPTECH. KB *) 

(* This files displays the Technical Plan section of Content *) 

column = 3 . 
row = 3. 

no_edit_key () . 
no_debug () . 

do ('Technical Plan'). 


topic 'Technical Plan' . 
menu choice3 = ' ' . 

menu“option3 is ['EXPERIMENT HARDWARE DESCRIPTION' , 'PAYLOAD CLASSIFICATION' 
'DEVELOPMENT APPROACH ' , ' TECHNOLOGY PLAN' , 'LOGISTICS' , 

'MISSION OPERATIONS, TRAINING AND DATA MANAGEMENT', 

'ANALYSIS OF MISSION RESULTS' , 'FACILITIES' , 'SAFETY' , 

'RETURN' ] . 

While ?menu_choice3 <> 'RETURN' 
then do (outline3) . 


topic 'outline3'. 

window ('4.4 Technical Plan' ,,, ,?column,?row, 77,18) . 

ask ( ' #e 

The outline for the Technical Plan includes the 
following sections: ' ,menu_choice3,?menu_option3) . 

if ?menu_choice3 = 'EXPERIMENT HARDWARE DESCRIPTION' 
then do ('Experiment Hardware Description'). 

if ?menu_choice3 = 'PAYLOAD CLASSIFICATION' 
then do ('Payload Classification'). 

if ?menu_cho i ce 3 = 'DEVELOPMENT APPROACH' 
then do ('Development Approach'). 

if ?menu_choice3 = 'TECHNOLOGY PLAN' 
then do ('Technology Plan'). 

if ?menu_choice3 = 'LOGISTICS' 
then do ('Logistics'). 

if ?menu_Cho i ce3 = 'MISSION OPERATIONS, TRAINING AND DATA MANAGEMENT' 
then 

do ('Mission Operations, Training and Data Management'). 

if ?menu_choice3 = 'ANALYSIS OF MISSION RESULTS' 
then do ('Analysis of Mission Results'). 

if ?menu_choice3 = 'FACILITIES' 
then do ('Facilities'). 

if ?menu_cho i ce 3 = 'SAFETY' 
then do ('Safety'). 

if ?menu_choice3 = 'RETURN' 
then new_kb ( ' dispcont . hkb ' ) . 



close_window (). 
end. (* outline3 *) 


topic ' Experiment Hardware Description', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.1.1 Experiment Hardware Description' , blue, white, white, ?column, 
?row, 74,15) . 
say ( ' 


Provide an overall description of the experiment 
hardware and relate the hardware to the science require- 
ments shown in section 4.3. Relate differing hardware con- 
figurations or upgrades to the relevant objectives shown in 
section 42. 


Press #fyellow SPACE#d to continue'). 


close_window ( ) . 
column = ? column - 1. 

row = ?row - 1. 

end. (* Experiment Hardware Description *) 


topic 'Payload Classification', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.4.2 Payload Classification' , blue, white, white, ?column,?row, 72, 15) . 
say (' 


State and show the rationale for the payload classification. 


Press #fyellow SPACE#d to continue'). 


close_window () . 
column = ? column - 1. 
row = ?row - 1. 

end. (* Payload Classification *) 


topic 'Development Approach', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.4.3 Development Approach' , blue, white, white, ?column, ?row, 72 , 15) . 
say (' 


C-3 



Describe the overall development approach, indicat- 
ing plans for breadboard, engineering model, and/or proto- 
flight hardware development. Identify the numbers of 
flight units and test articles, and define the fidelity 
of simulators required. Identify any support hardware 
required. Define the spares philosophy and the quantity 
of spares required by the approach to be used. 


Press #f yellow SPACE#d to continue'). 


close_window () . 
column = ? column - 1. 
row = ?row - 1. 

end. (* Development Approach *) 

topic 'Technology Plan', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.4.4 Technology Plan' , blue, white, white, ?column, ?row, 72 , 15) . 
say ([' 


Indicate what feasibility issues or proof-of- 
concept issues have been identified via ground-based 
testing during the defeinition phase of the project. 
These should have been identified at the Conceptual 
Design Review (CoDR) and closed by the RDR. It is not 
necessary to repeat the discussion of the breadboard 
program defined in section 4.4.3. If there was no tech- 
nology development requirement, this fact should be 
noted . 


Press #f yellow SPACE#d to continue']). 

close_window () . 

column = ? column - l. 

row = ?row - 1. 

end. (* Technology Plan *) 

topic 'Logistics', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.4.5 Logistics' , blue, white, white, ?column,?row, 72,15) . 
say (' 


Identify where the major project functions, such as 
hardware build, different levels of integration, etc. , 
will take place and describe the special services, vehicles, 
systems, and major equipment necessary to satisfy the logistic 
requirements of the project. 


Press #f yellow SPACE#d to continue'). 



close_window ( ) . 
column = ? column — 1. 
row = ?row - 1 • 
end. (* Logistics *) 

topic 'Mission Operations, Training and Data Management', 
column = ?column + 1. 

window ('4.4.6 Missions Operations, Training and Data Management', 
blue, white , white , ?row , ? column ,72,15) . 

e air / / 

Describe the operations approach, starting with a 
summary of the experiment operations sequence, and relate 
the crew involvement with the operations. Identify the 
location of the integration and operations activities 
and the organization supplying the support and define the 
level of support required. Identify where and how opera- 
tions training will be performed and how data will be ma e 
available to the principal investigator for analysis. All 
assumptions should be clearly stated. 

Press #fyellow SPACE#d to continue'). 


close_window () . 
column = ? column - 1. 

row = ?row - 1. . . . 

end. (* Mission Operations, Training and Data Management ) 


topic 'Analysis of Mission Results' . 
column — ? column + 1. 

row = ?row +1. . 

window ('4.4.7 Analysis of Mission Results 

?row,72,15) . 
say (' 


, blue , white , white , ?column , 


Describe procedures, associated efforts, and primary 
locations for the postmission analysis of data and other 
mission results. Define experiment records to be developed 
and how they will be archived. 


Press #f yellow SPACE#d to continue'). 


close_window () . 
column = ?column - 1. 
row = ?row - 1 . 

end. (* Analysis of Mission Results *) 


topic 'Facilities', 
column = ?column + 1. 

window* ('4.4.8 Facilities' , blue, white, white, ?column, ?row, 72, 15) . 
say ([' 


Describe and outline major in-house and contractor 
facilities (existing, modified and new) for fabrication, 



test, checkout, launch, flight and mission operations, and 
data acquisition and analysis. 


Press #f yellow SPACE/d to continue']). 


close_window () . 
Column = ? column - 1. 
row = ?row - l. 
end. (* Facilities *) 


topic 'Safety', 
column = ? column + 1. 
row = ?row + 1. 

window ('4.4.9 Safety' , blue, white, white, ?column, ?row, 72,15 ) . 
say (' 

Define the ground and mission safety requirements for the 
project. 


Press #fyellow SPACE#d to continue'). 


close_window ( ) . 
column = ?column - l. 
row = ?row - l. 
end. (* Safety *) 



'* thi^fil^displays the implementtation plan section of the project PLAN *) 


column = 3. 
row = 3 . 
no_edit_key ( ) . 
no_debug < ( ) • 

menu - option is ['IMPLEMENTATION APPROACH ' , ' SUMMARY WORK BREAKDOWN STRUCTURE' , 
'DOCUMENTATION' , 'RETURN' ] . 

while ?menu_choice <> 'RETURN' 
then do ('Implementation Plan'). 


window Implement at ion Plan' ,white,red,yellow,?column,?row,76,17) 

aSk ^ implementation Plan includes these three sections: ' ,menu_choice, 
?menu_option) . 


[£ ?menu choice = ' IMPLEMENTATION APPROACH 
then do ('Implementation Approach'). 

if ?menu choice = 'SUMMARY WORK BREAKDOWN STRUCTURE' 
then do ( ' Summary Work Breakdown Structure ' ) . 


if ?menu_choice = 'DOCUMENTATION' 
then do ('Documentation'). 


if ?menu_choice = 'RETURN' 

then new kb ( 'dispcont .hkb' ) . 


close_window ( ) . 

end. (* Implementation Plan *) 


topic 'Implementation Approach', 
column = ?column + 1 . 
row = ?row +1. 

window ('4.5.1 Implementation Approach ,blue. 


white , white , ?column , ?row ,71, 


15). 
say (' 


Indicate whether the project is an in-house activity 
>r a contracted activity. Define the principal entities on 
“he project team, including the contractor team and xts re- 
jponsibilities. If the contractor team has not yet been se- 
lected, include a description of the contractor procurement 
ipproach and schedule . 


Press #f yellow SPACE#d to continue'). 


close_window () . 
column — ? column — 1. 
row — ?row — 1 . 

end. (* Implementation Approach *) 


topic ' Summary Work Breakdown Structure ' . 
column = ?column + 1. 
row = ?row + 1. 

window ('4.5.2 Summary Work Breakdown Structure' , blue, white. white 
?column, ?row, 71, 15) . ' 

say ([' 


Provide a summary Work Breakdown Structure (WBS) 
down to the " appropriate level" (as agreed to between the 
Project Manager, and the Program Manager) and a brief de- 
scription of each WBS element. The WBS structure should be 
related to line items on the project master schedule and 
to the resources section, and should serve as the baseline 
WBS to be used in future budget reporting. 


Press #fyellow SPACE#d to continue']). 


close_window () . 
column = ? column - 1. 
row = ?row - l. 

end. (* Summary Work Breakdown Structure *) 


topic 'Documentation', 
column = Tcolumn + 1. 
row = ?row + 1. 

window ('4.5.3 Documentation' , blue, white, white, ?column, ?row, 71, 15) . 

say (' 


Provide a project documentation tree that includes 
all governing, hardware development, mission integration, 
and safety documentation. 


Press #f yellow SPACE#d to continue'). 


close_window ( ) . 
column = ?column - 1. 
row = ?row - l. 
end. (* Documentation *) 



(* THIS^ILES displays the management plan section of the project PLAN. *) 


column = 3. 
row = 3 . 
no_edit_key () . 
no_debug () . 

do ('Management Plan'). 

topic 'Management Plan' . 


menu” option is ['PROJECT MANAGEMENT RESPONSIBILITIES AND ORGANIZATION', 
'MISSION MANAGEMENT RESPONSIBILITIES AND ORGANIZATION' , 'RETURN' ) . 


while ?menu_choice <> 'RETURN' 
then do (Outline) . 


topic 'Outline'. 

window ('4.6 Management Plan' , white, red, yellow, ?column,?row, 76, 17) . 

aS ]£ # 

Management Plan includes these two sections: ' ,menu_choice, 

?menu_option) . 

if ?menu choice = 'PROJECT MANAGEMENT RESPONSIBILITIES AND ORGANIZATION' 
then do ('Project Management Responsibilities and Organization'). 

if ?menu choice = 'MISSION MANAGEMENT RESPONSIBILITIES AND ORGANIZATION' 
then do ('Mission Management Responsibilities and Organization'). 

if ?menu_choice = 'RETURN' 

then new_kb ( ' dispcont . hkb ' ) . 

close_window (). 

end. (* outline *) 

end. (* Management Plan *) 


topic 'Project Management Responsibilities and Organization' . 
column = ?column + 1. 

window r*4. 6.1* Project Management Responsibilities and Organization' , blue, 
white, white ,?column / ?row, 7 1,15) . 
say ([' 

Provide an organization chart of the project, 
including the Center Director, Project Manager, Principal 
Investigator, Project Scientist, and other key positions 
on the project, and all external project interfaces. Relate 
the organization chart to the WBS (section 5.2). 


close_window () . 
column = ?column - 1 . 


Press #f yellow SPACE#d to continue']). 


row = ?row - l. 

end. (* Project Management Responsibilities and Organization *) 


topic 'Mission Management Responsibilities and Organization' . 
column = ?column + l. 
row = ?row + 1. 

window ('4.6.2 Mission Management Responsibilities and Organization' blue 
white,whrte,?column,?row,71,15) . 
say ( ' 

Identify the NASA center responsible for mission 
management and describe what process is to be used to 
define the management and technical interface agreement 
between the NASA center responsible for the project and 
the Mission Management Center. Indicate the mission 
management responsibilities and interfaces on the organ- 
ization chart prepared for section 6.1. Identify all 
assumptions that will affect project plans, schedules 
and costs. 


Press #f yellow SPACE#d to continue'). 


close_window () . 
column = ? column - l. 
row = ?row - 1. 

end. (* Mission Management, Responsibilities and Organization *) 



(* dispcost.kb *) 

(* THIS FILES DISPLAYS THE 


COST CONTROL SECTION OF THE PROJECT PLAN 


*> 


column = 3. 
row = 3 . 
no_edit_key ( ) . 
no debug () . 


do ('Cost Control Plan'), 
topic 'Cost Control Plan'. 


menu choice — ' ' • 

menu options is [ 'RESOURCES' , 'COST CONTROL 
' COST REPORTING AND CONTROL STRUCTURE ' , 

' COST CONTROL STRATEGY ',' RETURN '] . 


GUIDELINES ' , 


while ?menu_choice <> 'RETURN' 
then do (Outline) . 


topic 'Outline'. 

window ('4.8 Cost Control Plan' 
ask ( ' 


, white , red , yellow, ? column , ?row ,76,17). 


Cost Control includes these four sections: ' ,menu_cho ice, 
?menu options) . 


if ?menu_choice = 'RESOURCES' 
then do ('resources'). 

if ?menu_choice = 'COST CONTROL GUIDELINES' 
then do ('Cost Control Guidelines'). 

if ?menu_cho ice = 'COST REPORTING AND CONTROL STRUCTURE' 
then new_kb ( ' co strep . hkb ' ) . 

if ?menu choice = 'COST CONTROL STRATEGY' 
then do ('Cost Control Strategy'). 


if ?menu_choice = 'RETURN' 

then new kb ( 'dispcont .hkb' ) . 


close_window ( ) . 

end. (* Outline *) 

end. (* Cost Control Plan *) 


topic 'Resources', 
column = ? column + 1. 


row = ?row + 1 . 
window ('4.8.1 
say ( [ ' 


Resources ' , blue , white , white, ?column, ?row ,71,15). 

Specify the funding (including contingency) and 
manpower requirements needed for the life of the pro- 
iect against the WBS. These resource requirements should 
be consistent with results from the Independent Cost 
Review held in conjunction with the RDR. Identify any 
assumptions mads in determining the cost. Select theappro- 
priate WBS level to be the Cost Reporting level. Identify 


any use to be made of other facilities for which another 
entity (other than the project) will be financially respon- 
sible. (This should be consistent with facilily usage de- 
scribed in section 4.8.) 

Press #fyellow SPACE#d to continue']). 


close_window () . 
column = ?column - 1. 
row = ?row - 1. 
end. (* Resoruces *) 


topic 'Cost Control Guidelines', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.8.2 Cost Control Guidelines' , blue, white, white, ? column, ?row, 
71, 15) . 
say ([' 

Define the cost control guidelines to be used in 
coping with cost variations at the different project 
levels. 

The following are examples of guidelines that may 
be used and are not intended to be universally applied. 

Each project can develop its own guidelines according 
to the individual project needs. 

a. MSAD Allowance for Program Adjustment (APA) is to 
be utilized for changes in program scope imposed 

by external circumstances, such as change in launch 
date or launch vehicle and internal changes in the 
science requirements. 

b. Project Office Contingency is to be utilized to 
fix internal problems for the Pi#39s or hardware 
contractor, such as design changes, parts procure- 
men t , alternate approaches, and change of subcon- 
tractors. 

c. Contingency reserves at the lower WBS levels (if 
they exist) will be used to solve problems in those 
WBS elements. Only when problems cannot be solved 
within the WBS element are they to be referred to 
the next higher cost control point. 

Press #f yellow SPACE#d to continue']). 

close_window ( ) . 
column — ? column - l. 
row = ?row - l. 

end. (* Cost Control Gudielines *) 


topic 'Cost Control Strategy', 
column = ?column + 1. 
row = ?row + l. 
window ('4.8.4 Cost Control 


Strategy ' , blue , white , white , ?column , ?row , 7 l 


/ 



15 ) . 
say (' 


This section should contain a discussion of courses 
of event of cost growths. The entire hardware develop- 

ment process should be considered, including t ^® tes ^ p ^ 1 ' 
support equipment, and facility requirements, etc., as wel 
as the mainline flight hardware development. 

scienc^requirements^cienc^and^hardwarl^developeentdescope 

out^options^should^als^be^dtoessed^if* appropriate? Obviously, 

scientists. Overall discussions on cost management, such 
hoi ?o deli with overruns and underruns at the lower WBS and 
project levels, should also be included. 


Press #f yellow SPACE#d to continue' ). 


close_window () . 
column = ?column * 1* 
row = ?row - 1. 

end. (* Cost Control Strategy *) 


(* COSTREP . KB *) 

(* THIS FILE DISPLAYS THE 
(* OF THE PROJECT PLAN *) 


COST REPORTING AND CONTROL STRUCTURE SECTION 


column = 3. 
row = 3 . 
no_edit_key ( ) . 
no_debug () . 


do ('Cost Reporting and Control Structure'). 


topic 'Cost Reporting and Control Structure' 
menu_choice = ' • . * 

menu_option is ['NASA REPORTS' , 'CONTRACTOR REPORTS', 'RETURN'] 

while ?menu_choice <> 'RETURN' 
then do (outline) . 


topic 'outline'. 

RePOrtlng and Contro1 Structure', white,red,yellov, 

ask (' 


Cost Reporting and Control Structure 
menu_choice , ?menu_option) . 


includes these two sections i ' , 


if ?menu_choice = 'NASA REPORTS' 
then do ('Nasa Reports'). 


if ?menu_cho ice = 'CONTRACTOR REPORTS' 
then do ( ' Contractor Reports ' ) . 

if ?menu_choice = 'RETURN' 
then new_kb ( 'dispcost.hkb' ) . 

close_window () . 


end. (* Outline *) 

end. (* Cost Reporting and Control Structure *) 


topic 'NASA Reports', 
column = ?column + l. 
row = ?row + l. 

window ('4. 8. 3.1 NASA Reports' 
say ([' 


blue, white, white, ?column, ?row, 72 , 15 ) . 


Show the /mWBS/m structure to be used for cost reoor-t- 
ing and control, and identify the monthly Management P 
Information Control System (MICS) (or equivalents anrt 

?^r! h 0P ?^ ting , Plan (P0P > “o' bo used 

^ “ detail ^PenOin^ 


Press #f yellow SPACE#d to continue']). 

close_window () . 
column = ? col umn - i. 
row = ?row - l. 
end. (* NASA Reports *) 



topic ' Contractor Reports ' . 
column = ?column + 1. 

row = ?row +1. , 

window ('4. 8. 3. 2 Contractor Reports 


blue , white , white , ?column , ?row ,72, 


15) . 
say (' 


Where applicable, delineate the contractor reports to 
provided to the NASA center. 


Press #f yellow SPACE#d to continue') . 


close_window () . 
column = ? column - 1. 
row = ?row - 1. 

end. (* Contractor Reports *) 

topic 'WBS'. 

column = ?column + 1. 

window *°WBS ' , blue , white , white , ?row , ?column ,72,13). 
say ( ' #e 


Work Breakdown Structure 


Press yellow SPACE^d to continue. ) • 


close_window ( ) . 
column = ? column — 1. 
row = ?row -1. 
end. (* WBS *) 



(* DISPPRREV.KB *) 

(* THIS FILE DISPLAYS THE PROJECT REVIEWS AND MEETINGS SECTION OF THE 
(* PROJECT PLAN *) 1H£ > 

column = 3. 
row = 3. 
no_edit_key () . 
no_debug () . 

do ('Project Reviews and Meetings'). 


topic 'Project Reviews and Meetings'. 
menu_choice = ' ' . 

menu_option is ['INTERNAL REVIEWS' , 'EXTERNAL REVIEWS' 

'DESIGN AND READINESS REVIEWS ', 'RETURN' ] . ' 

while ?menu_option <> 'RETURN' 
then do (Outline) . 

topic 'outline'. 

77 ? 18 ?. (,4 ‘ 9 Pr ° jeCt Reviews and Meetings' ,white, blue, white, ?column, ?row, 
ask ( ' 

Project Reviews and Meetings (Section 4.9) is broken down 
into section 4.9.1, #f yellow Management Reviewed. 

Section 4.9.1 is divided into these three sections:' 
,menu_choice, ?menu_option) . 


if ?menu_choice = 'INTERNAL REVIEWS' 
then do ('Internal Reviews'). 

if ?menu_choice = 'EXTERNAL REVIEWS' 
then do ('External Reviews'). 

if ?menu__choice = 'DESIGN AND READINESS REVIEWS' 
then do ('Design and Readiness Reviews'). 

if ?menu_choice = 'RETURN' 
then new_kb ( ' dispcont . hkb ' ) . 

close_window ( ) . 

end. (* Management Reviews *) 


topic ' Internal Reviews ' . 

column = ?column + l. 

row = ?row + l. 

window ('4. 9. l.l Internal 

say (' 


Reviews' ,blue, white, white, ?column, ?row, 72, 16) . 


Identify weekly or monthly project meetings and 
reviews with the NASA center #3 9s management as appro- 
priate. 



Press #fyellow SPACE#d to continue'). 


close_window ( ) . 

column = ? column - 1. 

row = ?row - 1. 

end. (* Internal Reviews *) 


topic 'External Reviews', 
column = ?column + 1. 
row = ?row +1. 

window ('4.9. 1.2 External Reviews' ,blue, white, white, ?column, ?row, 72 , 16) 
say (' 


Identify biweekly telecons, monthly reviews, or 
periodic program reviews with NASA Headquarters, Mission 
Management, etc., as appropriate. 


Press #f yellow SPACE#d to continue'). 


close_window ( ) . 

column = ? column - 1. 

row = ?row - 1. 

end. (* External Reviews *) 


topic 'Design and Readiness Reviews'. 

window ('4. 9. 1.3 Design and Readiness Reviews' , blue, white, white, ?column 
?row,72,17) . 
say (' 


Make reference to the major project reviews, in- 
cluding those required by the MSAD management plan as 
well as integrated payload reviews, safety reviews, and 
flight readiness reviews. 


Press #f yellow SPACE#d to continue'). 


close_window () . 

end. (* Design and Readiness Reviews *) 


(* Content. kb *) 

(* This is the program for filling out the Content section of the Project *) 

(* Plan. *) 

column =3. 

row = 3. 

no_edit_key () . 

no_debug () . 

curdir is read_line ('CURDIR.DAT'). 
curdir = string_replace(?curdir, ' ' , ' ' , 8) . 

menu_choice = ' ' . 

menu_option is [ ' Introduction ' , ' Ob j ect ive ' , ' Science Requirements ' , 

'Technical Plan' , 'Implementation Plan' , 'Management Plan' , 'Schedule' , 

'Cost Control Plan' , 'Project Reviews and Meetings', 

' Return to Previous Menu ' ] . 

while ?menu_choice <> 'Return to Previous menu' 
then do (Coutline) . 


topic 'Coutline'. 

window ('4.0 Content' ,white, red, yellow, ?column,?row, 76, 17) . 

ask ( ' #e 

Which section would you like to complete?' ,menu_choice, ?menu_option) . 

if ?menu_choice = 'Introduction' 
then do ('Introduction'). 

if ?menu_choice = 'Objective' 
then do ('Objective'). 

if ?menu_choice = 'Science Requirements' 
then do ( ' Science Requirements ' ) . 

if ?menu_choice = 'Technical Plan' 
then do ('Technical Plan'). 

if ?menu_choice = 'Implementation Plan' 
then do ('Implementation Plan'). 

if ?menu_choice = 'Management Plan' 
then do ('Management Plan'). 

if ?menu_choice = 'Schedule' 
then do ( ' Schedule ' ) . 

if ?menu_choice = 'Cost Control Plan' 
then do ('Cost Control Plan'). 

if ?menu_choice = 'Project Reviews and Meetings' 
then do ('Project Reviews and Meetings'). 

if ?menu_choice = 'Return to Previous Menu' 
then new_kb ( ' ppquest 2 . hkb ' ) . 

close_window () . 

end. (* Content *) 

new_kb ( ' ppquest 2 . hkb ' ) . 



(*=== 


:== threaded topics 




topic 'Introduction' . 

column = ? column + 1» 

row = ?row + 1. 

window ( ' 4 . 1 Introduction ' , 

say ( [ ' #e 


blue , white , white , ?column, ?row ,72,14) 


Please describe the relevance 
a summary rationale as to why 
(limit to one printed page) . 


of the investigation and provide 
a flight experiment is required 


Press #fyellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
Sllave editor, and #fyellow RETURN*! to confirm save.']). 


e dit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_1.DAT' ) , yellow, black, red, 6,12,70,10 

close - Wi "^concat (C: \GARDEN \ , 7CURDIR , ' \PPE4_1 . DAT ' ) ) • 

column = ? column — 1 . 

row = ?row - 1. 

end. (* introduction *) 


topic 'Objective' . 
column = ?column + 1. 
row = ?row + 1. 
window ('4.2 Ob j ect ive ' , 
say ( [ '#e 


blue, white, white, ?column, ?row, 72 , 14) . 


Please define the overall objective (s) of the fll 9 h J; 
experiment (s) ; if more than one flightisrequested, 
indicate the specific objectives of each flight. 


Press #f yellow RETURN KEY#d to enter the editor, ESC#d 

to leave editor, and #fyellow RETURNS to confirm save.']). 


edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_2 .DAT' ), yellow, black, red, 6 , 12 ,70, 1 

close - Wind °concat (C: \ GARDEN \,?CURDIR, ' \PPE4_2.DAT' ) ) . 

column — ? column — 1. 

row = ?row - 1 . 

end. (* Objective *) 


topic 'Science Requirements', 
column = ? column + 1. 
row = ?row +1. 

window ('4.3 Science Requirements 
say ( [ ' #e 


blue,white,white,?column,?row,72 , 14) . 


Please summarize the science requirements aqainst which the 
hardware will be built and reference the applicable Science 
Requirements Document (s) . 


Press #f yellow RETURN KEY#d to enter the editor, 
to leave editor, and #f yellow RETURN#d to confirm 


#f yellow ESC#d 
save. ' ] ) . 


edit _file (concat (C: \GARDEN\, 7CURDIR, 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, 

column - ?column - l. 
row = ?row - l. 

end. (* Science Requirements *) 


' \PPE4_3 . DAT ' ) , yellow , black , red ,6,12,70 
'\PPE4_3.DAT') ) . 


3 


topic 'Technical Plan'. 
new_kb ( ' techplan . hkb ' ) . 
end. (* Technical Plan *) 

topic 'Implementation Plan', 
newjcb ( ' impplan . hkb ' ) . 
end. (* Implementation Plan *) 


topic 'Implementation Approach', 
column = ? col umn +i. 
row = ?row + l. 

window ('4.5.1 Implementation Approach' 
say ('#e 


, blue, white, white, ?column, ?row, 72,14) . 


Please indicate whether the project is an in-house activity or 
a contracted activity. Define the principle entities on the 
project team, including the contractor team and its responsibil- 

a deJcrinti^ e «5 0 ^ raCt0 J te f“ haS n0t yet *•*" select ed, include 
description of the contractor procurement approach and schedule. 


Press #f yellow RETURN KEY#d to enter the editor, 
to leave editor, and /fyellow RETURN#d to confirm 


/fyellow ESC#d 
save . ' ) . 


edit_file (concat (C: \GARDEN\ , 7CURDIR, 
close_window () . 

close (concat (C: \GARDEN\ , ?CURDIR, 

column = ? column — l . 
row = ?row - l. 

end. (* Implementation Approach *) 


' \PPE4_5_1.DAT') , yellow, black, red, 6, 12,70 
' \PPE4_5_1 . DAT' ) ) . 


topic 'Summary Work Breakdown Structure' . 
column = ? col umn + i . 
row = ?row + l. 

? co lumn ^ ?row * 7 2 Work Breakdown Structure' , blue, white, white, 

say (['#e 



Please provide a 

to the "appropriate level *; c^ and a brief description of 
Manager, and the P ^ r ^ s ®«uctire ; hou ld be related to line 
each WBS element. The schedule and to the resources 

section? Sd !t°shoulS serve as the baseline MBS to be used 
in future budget reporting. 


edit file (concat (C:\GARDBHX.7CUBDIR, '\PPE4_5_2.DAT') ,yellov.bla=*.red,6, 12, 70, 
close.-indo-o 0 . t ( c . XGARDENX , 7CUPDIR , ' \PPE4_5_2 . DAT * ) ) . 
column = ? column - 1 * 

end.” Summary Work Breakdown Structure *) 


topic ' Documentation ' . 
column = ?column + 1* 

row = ?row +1. . , y.-, white. white, ?column,?row, 72, 14) . 

window ('4.5.3 Documentation ' , blue , wnire wnxu , 

say ( ' #e 


. . _ ^mnroiect documentation tree#m that includes 

all governing, hardware dev. ia?rative should accompany this 
safety documentation. If a narrative 

chart, please provide it here. 




edit file (concat (C: \GARDEN\ , 7CURDIR, 

close~ Wind °concat (C: \GARDEN\ , 7CUBDIR, 
column = ? column - !• 


' \PPE4 5_3 . DAT ' ) , yellow, black, red , 6 , 12 , 70 
• \PPE4_5_3.DAT' ) ) . 


row = ?row - 1. 

end. (* Documentation *) 


topic 'Management Plan' . 
new kb ( ' MGTPLAN . HKB ' ) . 
end. (* Management Plan *) 


topic 'Schedule', 
column = ?column + 1 • 

1 Schedule ' , blue , white , white , 7 column , ?row ,72,14) . 

say ( ' #e 

Please provide an ove ^^ 1 S oftwI?e int^th^system integration and 
the flow of hardware and . t rs and mission management 

test activity. Identify the Headquart Sen? possible, tie the 

“Sedule 0 ?o r ?^ e #m^s^ and Overlay the procurement and NASA budget 


and overall 


cycles. Provide a 
project flow. 


narrative describing the schedule 


Press #f yellow RETURN KEY/d to enter the editor 
to leave editor, and #f yellow RETURN#d to confirm 


yellow ESC#d 
save . ' ) . 


edit_file (concat (C: \GARDEN\ , 7CURDIR, 
close_window () . 

Close (concat (C: \GARDEN\ , 7CURDIR, 

column — ?column — l . 
row = ?row - l. 
end. (* Schedule *) 


' \ PPE4_7 . DAT ' ) , yel low , black , red , 6 , 12 , 
'\PPE4_7.DAT') ) . 


topic 'Cost Control Plan'. 
new_kb ( ' costcont . hkb ' ) . 
end. (* cost Control Plan *) 

topic 'Project Reviews and Meetings'. 

new_kb ( ' pro j rev . hkb ' ) . 

end. (* Project Reviews and Meetings *) 

topic 'WBS'. 
column = ?column + 1 . 
row = ?row + 1. 

say*( °#e ^ ' WBS ' * blue ' white • white , ?row , ?column ,72,14). 


Work Breakdown Structure 


close_window () . 
column = ?column - 1 . 
row = ?row -l. 
end. (* WBS *) 


Press #f yellow SPACE#d to continue.'). 



(* TECHPLAN.KB *) 

(* This is the program for completing the Technical Plan Section of the *) 

(* Project Plan *) 

column = 2 . 

row = 2. 

no_edit_key () . 

no_debug () . 

curdir is read_line ('CURDIR.DAT'). 
curdir = string_replace (?curdir, ' ',",8). 

menu_choice = ' ' . 

menu_option is [ ' EXPERIMENT HARDWARE DESCRIPTION' , 'PAYLOAD CLASSIFICATION', 
'DEVELOPMENT APPROACH ',' TECHNOLOGY PLAN' , 'LOGISTICS' , 

'MISSION OPERATIONS, TRAINING AND DATA MANAGEMENT', 

'ANALYSIS OF MISSION RESULTS' , 'FACILITIES' , 'SAFETY' , 

'RETURN TO PREVIOUS MENU']. 

While ?menu_cho ice <> 'RETRUN TO PREVIOUS MENU' 
then do (Toutline) . 


topic 'Toutline'. 

column = ?column + 1. 

row = ?row + 1. 

window ('4.4 Technical Plan' ,,, , ?column, ?row, 77,17 ) . 

ask ( ' #e 

The outline for the Technical Plan includes the 
following sections: ' ,menu_choice, ?menu_option) . 

if ?menu_choice = 'EXPERIMENT HARDWARE DESCRIPTION' 
then do ('Experiment Hardware Description'). 

if ?menu_choice = 'PAYLOAD CLASSIFICATION' 
then do ('Payload Classification'). 

if ?menu_choice = 'DEVELOPMENT APPROACH' 
then do ('Development Approach'). 

if ?menu_cho ice = 'TECHNOLOGY PLAN' 
then do ('Technology Plan'). 

if ?menu_choice = 'LOGISTICS' 
then do ('Logistics'). 

if ?menu_choice = 'MISSION OPERATIONS, TRAINING AND DATA MANAGEMENT' 
then 

do ('Mission Operations, Training and Data Management'). 

if ?menu_choice = 'ANALYSIS OF MISSION RESULTS' 
then do ('Analysis of Mission Results'). 

if ?menu_choice = 'FACILITIES' 
then do ('Facilities'). 

if ?menu_cho ice = 'SAFETY' 
then do ('Safety'). 

if ?menu_choice = 'RETURN TO PREVIOUS MENU' 
then new_kb ( ' content . hkb ' ) . 



close_window () . 
column = ?column - 1. 
row = ?row - 1. 

end. (* Technical Plan *) 
new_kb ( ' content . hkb ' ) . 

(****************************** RELATED TOPICS ***************************) 

topic 'Experiment Hardware Description', 
relatedf ilel = '\PPE4_3.dat'. 
relatedf ile2 = '\PPE4_2.dat'. 
column = ?column + 1. 
row = ?row + 1. 

window ('4.4.1 Experiment Hardware Description' , blue, white, white, ?column, 
?row,72,15) . 
say ( ' #e 


Please provide an overall description of the experiment hardware 
and relate the hardware to the science requirements shown in 
#mSection 4.3#m. Relate differing hardware configurations or upgrades 
to the relevant objectives shown in ImSection 4.2#m. 


Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and #fyellow RETURN#d to confirm save.'). 

edit_file (concat (C:\GARDEN\,?CURDIR, '\PPE4_4_1.DAT') , yellow, black, red, 6, 12, 7 
close_window () . 

Close (concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_4_1.DAT' ) ) . 

column = ? column - l. 
row = ?row - 1. 

end. (* Experiment Hardware Description *) 

topic 'Payload Classification' . 

new_kb ( ' payclass . hkb ' ) . 

end. (* payload classification *) 

topic 'Development Approach', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.4.3 Development Approach' , blue, white, white, ?column, ?row, 72,14). 
say ('#e 

Please describe the overall development approach, indicating 
plans for breadboard, engineering model, and/or protoflight 
hardware development. Identify the numbers of flight units and 
test articles, and define the fidelity of simulators required. 

Identify any support hardware required. Define the spares 
philosophy and the quantity of spares required by the project. 

Use a #mdetailed flow diagram#m to clarify the development and test 
approach to be used. 


Press #fyellow RETURN KEY#d to enter the editor, #fyellow ESC#d 
to leave editor, and #f yellow RETURN#d to confirm save.'). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, '\PPE4_4_3.DAT') , yellow, black, red, 6,12, 7C 
close_window () . 



close (concat (C: \ GARDEN \ , 7CURDIR, ' \PPE4_4_3.DAT' ) ) . 

column = ? column - 1. 
row = ?row - 1. 

end. (* Development Approach *) 

topic 'Technology Plan' . 
relatedf ile3 = '\PPE4_4_3.dat'. 
column = ?column + 1. 
row = ?row + 1. 

window ('4.4.4 Technology Plan' , blue, white, white, ?column, ?row, 72 , 14) . 
say ( [ ' #e 

Please indicate what feasibility issues or proof-of-concept 
issues have been identified via ground-based testing during 
the definition phase of the project. These should have been 
identified at the Conceptual Design Review (CoDR) and closed 
by the #mRDR#m. It is not necessary to repeat the discussion of 
the breadboard program defined in #mSection 4.4.3#m. If there 
was no technology development requirement, this fact should 
be noted. 


Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and #fyellow RETURN#d to confirm save.']). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, '\PPE4_4_4.DAT') , yellow, black, red, 6 , 12 , 70 
close_window ( ) . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_4_4.DAT' ) ) . 

column = ? column - l. 

row = ?row - 1. 

end. (* Technology Plan *) 

topic 'Logistics', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.4.5 Logistics' , blue, white, white, ?column,?row, 7 2,14) . 
say ('#e 


Please identify where the major project functions, such as 
hardware build, different levels of integration, etc., will 
take place and describe the special services, vehicles, systems, 
and major equipment necessary to satisfy the logistic require- 
ments of the project. 


Press #f yellow RETURN KEY#d to enter editor, #f yellow ESC#d 
to leave editor, and #fyellow RETURN#d to confirm save.'). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, '\PPE4_4_5.DAT') , yellow, black, red, 6 , 12 , 70 
close window ( ) . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_4_5.DAT' ) ) . 

column = ?column - 1. 
row = ?row - 1. 
end. (* Logistics *) 


topic 'Mission Operations, Training and Data Management', 
column = ?column + 1. 



row = ?row + 1. 

window ('4.4.6 Missions Operations, Training and Data Management', 
blue,white,white,?row,?column,72, 14) . 
say ( ' #e 

Please describe the operations approach, starting with a 
summary of the experiment operations sequence, and relate the 
crew involvement with the operations. Identify the location 
of the integration and operations activities and the organiz- 
ation supplying the support and define the level of support 
required. Identify where and how operations training will be 
performed and how data will be made available to the principal 
investigator for analysis. All assumptions should be clearly 
stated . 


Press #f yellow RETURN KEY/d to enter the editor, #f yellow ESC#d 
to leave editor, and #f yellow RETURN #d to confirm save.'). 

edit_file (concat (C: \GARDEN\ , 7CURDIR, '\PPE4_4_6.DAT') , yellow, black, red, 6, 12 ,7 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_4_6.DAT' )) . 

column = ? column - l. 
row = ?row - 1. 

end. (* Mission Operations, Training and Data Management *) 


topic 'Analysis of Mission Results', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.4.7 Analysis of Mission Results' , blue, white, white, ?column, 
?row,72,14) . 
say ( ' #e 


Please describe procedures, associated efforts, and primary 
locations for the postmission analysis of data and other 
mission results. Define experiment records to be developed 
and how they will be archived. 


Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and #fyellow RETURN/d to confirm save.'). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, '\PPE4_4_7.DAT') , yellow, black, red, 6 , 12 , 7 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_4_7.DAT' ) ) . 

column = ? column - l. 
row = ?row - 1. 

end. (* Analysis of Mission Results *) 

topic 'Facilities', 
column = ?column + 1. 
row = ?row +1. 

window ('4.4.8 Facilities' , blue, white, white, ?column,?row, 72, 14) . 
say (['#e 


Please describe and outline major in-house and contractor 
facilities (existing, modified and new) for fabrication, 



test, checkout, launch, flight and mission operations, and 
data acquisition and analysis. 


Press #f yellow RETURN KEY#d to enter the editor, ffyellow ESC#d 
to leave editor, and #fyellow RETURN#d to confirm save.']). 

edit_f ile (concat (C: \GARDEN\ , ?CURDIR, '\PPE4_4_8.DAT') , yellow, black, red, 6 , 12 , 70 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_4_8.DAT' ) ) . 

Column = ? column - 1. 
row = ?row - 1. 
end. (* Facilities *) 


topic 'Safety', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.4.9 Safety' , blue, white, white, ?column,?row, 72, 14) . 
say ('#e 

Please define the ground and mission safety requirements 
for the project. 


Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and #fyellow RETURN#d to confirm save.'). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, '\PPE4_4_9.DAT') , yellow, black, red, 6 , 12 , 70 
close_window ( ) . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_4_9.DAT' ) ) . 

column = 7 column - 1. 
row = ?row - 1. 
end. (* Safety *) 

topic 'detailed flow diagram' . 

collect ( ) 

and 

dos ( ' SCHEDULE ' , r es t or e ) . 
end. (* detailed flow diagram *) 

topic ' Section 4.3'. 
column = ?column + 1. 
row = ?row +1. 

related_answer is read (concat (C: \GARDEN\ , ?curdir, ?relatedf ilel) ) . 
window ('4.3 Science Requirements' , blue, white, white, ?column, ?row, 73 , 15) . 
say ( ' 

This is your answer for Section 4.3: #t #n', 

?related_answer , '#n #n #n #n #n 

Press #f yellow SPACE#d to continue.'). 


column = 7 column - 1. 
row = ?row - 1. 
close_window ( ) . 
end. (* Section 4.3 *) 


topic ' Section 4.2'. 
column = ?column + 1. 
row = ?row + 1. 

related_answer is read(concat (C: \ GARDEN \ , ?curdir, ?relatedf ile2) ) . 
window ('4.2 Objectives' , blue, white, white, ?column,?row, 73,15) . 
say (' 

This is your answer for Section 4.2: it #n' , 
?related_answer, 'in #n in in in 

Press #fyellow SPACE#d to continue.'). 


column = ? column - l. 
row = ?row - l. 
close_window ( ) . 
end. (* Section 4.2 *) 

topic ' Section 4.4.3'. 
column = ?column + 1. 
row = ?row + 1. 

related_answer is r ead ( concat ( C : \GARDEN\,?curdir,?relatedfile3) ) . 
window ('4.4.3 Development Approach' ,blue, white, white, ?column,?row, 73,14) . 
say (' 

This is your answer for Section 4.4.3: it. in ' , 

?related_answer , 'in in in in in 

Press #f yellow SPACE#d to continue.'). 


column = ? column - 1. 
row = ?row - 1. 
close_window () . 
end. (* Section 4.4.3 *) 

topic 'RDR' . 
column = ? column + 1. 
row = ?row + 1. 

window ('RDR' , blue, white, white, ?row, ?column, 72, 14) . 
say ( ' #e 


Requirements Definition Review 


Press if yellow SPACE£d to continue.'). 


close_window () . 
column = ? column - 1 . 
row = ?row -1. 
end. (* RDR *) 



(* PAY CLASS. KB *) 

(* THIS PROGRAM IS FOR COMPLETING THE PAYLOAD CLASSIFICATION SECTION *) 

(* OF THE PROJECT PLAN *) 

column = 2 . 
row = 2 . 
no_edit_key () . 
no_debug () . 

curdir is read_line (' CURDIR.DAT' ) . 
curdir = string_replace (?curdir, ' ' , ' ' ,8) . 
do (PCoutlne) . 


topic 'PCoutlne'. 
column = ?column + 1. 
row = ?row +1. 

window ('4.4.2 Payload Classification' , blue, white, white, ?column, ?row, 72 , 17) . 
say ( ' #e 

Please state and show the rationale for the payload classification 
as determined by #mNasa Management Instruction 8010. lA#m. The payloads 
are classified as either class A, B, C, or D. The guidelines for 
determining payload classification are as follows: 


#mClass A#m 
#mClass B#m 
#mClass C#m 
#mClass D#m 


Press #fyellow RETURN KEY#d to enter the editor, #fyellow ESC#d 
to leave editor, and #f yellow RETURN#d to confirm save.'). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_4_2.DAT' ) , yellow, black, red, 6, 12 , 70 
close_window () . 

close (concat (C: \GARDEN\ , ? CURDIR, ' \PPE4_4_2.DAT' ) ) . 

column = ?column - 1. 

row = ?row - 1. 

new_kb ( ' techplan . hkb' ) . 

end. (* Payload Classification *) 

topic 'Class A', 
column = ? column + 1. 
row = ?row + 1. 

window ('Class "A" Payload Characterization' , blue, white, white, ?column, ?row, 72 , 
17) . 

say ('#e 

===== CHARACTERIZATION, MISSION SUCCESS, AND SRM&QA COST GUIDELINES ====== 

FOR CLASS A PAYLOADS 


CLASSIFICATION : 


CLASS A 


Characterization : 


High Priority, Minimum Risk 


Typical Factors Used High national prestiege; 

to Determine Payload Long hardware life required; 


Classifications : 


Achievement of 
Missioin Success 
Criteria: 


High complexity; Highest cost; 

Long program duration; 

Critical launch constraints; 
Retrieval/reflight or in-flight 
maintenance to recover from 
problems is not feasible. 

All affordable programmatic and 
other measures are taken to 
achieve minimum risk. The 
highest practical product 
assurance standards are utilized. 


Estimated Relative 

SRM&QA Cost Factors #m*l#m: 1.0 


======== GUIDELINES FOR SRM&QA PROGRAM REQUIREMENTS FOR PAYLOADS === 


SRM&QA ELEMENT: 

Engineering Model, 
Prototype, Flight 
And Spare Hardware 


Failure 

Investigation Board 
Requirements 

Treatement of Single 
Failure Points 
(SFPs) 


Qualification, 
Acceptance , And 
Protoflight Test 
Program 


EEE Parts 
Reviews #m*2#m 


Safety 


Materials 


Engineering Model Hardware For 
New Or Modified Designs. 

Separate Prototype And Flight 
Modes Hardware. Full Set Of 
Assembled And Tested "Flight 
Spare" Replacement Units. 

Formal Board Required - Initiated 
And Conducted by Headquarters. 


Success Critical SFPs Are Not 
Permitted Except by Formal 
Project Waiver. Retention 
of Unavoidable SFPs Requires 
Justification Based On Risk 
Analysis And Implementation Of 
Measures To Mitigate Risk. 

Full Formal Qualification And 
Acceptance Test Programs At All 
Hardware Levels . Extensive 
Design Margin And Development 
Testing For New or Modified 
Designs . 

Grade I (per Mil-Std-975) . 

Full Formal Review Program 
Including Outside/ Independent 
Reviews. 

Per All Applicable NASA Safety 
Standards . 

Verify Heritage of Previously 



Reliability 


Used Materials And Qualify All 
New Or Changed Materials. 

Utilize Source Controls On 
Procured Materials And Acceptance 
Test Each Lot /Batch. 

Failure Mode And Effects 
Ana lysis /Critical Items List 
(FEMA/CIL) , Worst Case 
Performance And Parts Stress 
Analyses Required For All Parts 
And Circuits. Mechanical 
Reliability And Other Reliability 
Analyses Required Where Appropriate 

Maintainability Formal Maintainability Program 

For All Appropriate Flight And 
Critical Ground Support Elements. 

Quality Assurance Formal Quality Assurance Program 

Including Closed-Loop Problem 
Reporting And Alalysis of SRM&QA 
And Performance Trends. 

Software #m*2#m Formal Software Quality Assurance 

Program Including A Formal Review 
Program With Outside/ Independent 
Reviews and Independent 
Verification And Validation. 

Press #f yellow SPACE#d to continue.'). 


topic / *1 / . 

Window (' Note *1 ' , yellow, red, white, 6 , 6, 68 f 10, ) . 

say ('#e . 

There are wide variations in the methods for specifying 
and acccounting for "SRM&QA costs H . For Class A Programs, 
these costs are typically in the range of 10 t 15% of the 
total program cost. The relative SRM&QA cost factors 
specified here are intended to require substantiative 
differences in the SRM&QA programs (and the associated costs) 
for the various program classifications in order to establish 
a meaningful ladder of cost/risk levels. 

Press #f white SPACE#d to continue'). 


close_window () . 
end. (* *1 *) 

topic '*2'. 

Window (' Note *2 ', yellow, red, white, 6, 6 ,68,7) . 
say ( ' #e 

Outside/ Independent Review refers to reviews conducted by 
personnel who are not managing or directly associated with 
the program or the design effort (i.e., personnel who are 
not assigned to or in the management chain for the program 
and who are not preforming or managing the design effort) . 

Press #f white SPACE#d to continue'). 



close_window (). 
end. (* *2 *) 

close_window () . 
column = ?column - 1. 
row = ?row - 1. 
end. (* Class A *) 

topic 'Class B'. 
column = ?column + 1. 
row = ?row + 1. 

window ('Class "B" Payload Characterization' , blue, white, white, ?column 
72,17) . 
say ('#e 

===== CHARACTERIZATION, MISSION SUCCESS, AND SRM&QA COST GUIDELINES = 

FOR CLASS B PAYLOADS 


CLASSIFICATION: 

Characterization : 

Typical Factors Used 
to Determine Payload 
Classifications : 


Achievement of 
Missioin Success 
Criteria: 


Estimated Relative 
SRM&QA Cost Factors #m*l#m: 


CLASS B 


High Priority, Medium Risk 

High national prestiege; 

Medium hardware life required; 
High to medium complexity; 

High cost; 

Medium program duration; 

Some launch constraints; 
Retrieval/reflight or in-flight 
maintenance to recover from 
problems is difficult or not 
feasible. 

Compromises are used to permit 
somewhat reducec costs while 
maintaining low risk to the 
overall mission success and a 
medium risk of achieving only 
partial sucess. Stringent 
product assurance standrds are 
utilized. 


0.7 x Class A 


GUIDELINES FOR SRM&QA PROGRAM REQUIREMENTS FOR PAYLOADS == 


SRM&QA ELEMENT: 

Engineering Model, 
Prototype, Flight 
And Spare Hardware 


Failure 

Investigation Board 
Requirements 


Engineering Model Hardware For 
New Or Modified Designs. 

Separate Prototype And Flight 
Modes Hardware. Full Set Of 
Assembled And Tested #3 4 Flight 
Spare£34 Replacement Units. 

Formal Board Required - Initiated 
And Conducted by Headquarters. 



Treatement of Single 
Failure Points 
(SFPs) 


Qualif icat ion , 
Acceptance , And 
Protoflight Test 
Program 


EEE Parts 


Reviews #m*2#m 


Safety 


Materials 


Reliability 


Maintainability 


Quality Assurance 


Software #m*2#m 


Success Critical SFPs Are 
Allowed W/0 Formal Waiver But Are 
Minimized And Mitigated By Use Of 
High Reliability Parts And 
Additional Testing. Essential 
Spacecraft Functions And Key 
Instruments Are Typically Fully 
Redundant. Other Hardware Has 
Partial Redundancy And/Or 
Provisions For Graceful 
Degr edat ion . 

Formal Qualification And 
Acceptance Test Programs May Be 
Combined Using "Protof light" 

Hardware Approach. Design Margin 
And Development Testing For New 
Designs. 

Combination Grade I and Grade II 
(per Mil-Std-975) . 

Formal Review Program; may 
Include Outside/ Independent 
Reviews . 

Per All Applicable NASA Safety 
Standards . 

Utilize Previously Tested/Flown 
Materials Or Qualify New 
Materials. Acceptance Test Each 
Lot of Procured Materials. 

FMEA/CIL Required At A Black Box 
(Or Circuit Block Diagram) Level. 
Worst Case Performance And Parts 
Stress Analysis Required For All 
Parts And Circuits. 

Formal Maintainability Program 
For All Appropriate Flight And 
Critical Ground Support Elements. 

Formal Quality Assurance Program 
Including Closed-Loop Problem 
Reporting And Alalysis of SRM&QA 
And Performance Trends. 

Formal Software Quality Assurance 
Program Including A Formal Review 
Program With Outside/ Independent 
Reviews and Independent 
Verification And Validation. 


Press #f yellow SPACE#d to continue.'). 


topic '*1'. 

Window (' Note *1 ' , yellow, red, white, 6, 6, 68, 10, ) 
say ( ' #e 


There are wide variations in the methods for specifying 
and acccounting for "SRM&QA costs". For Class A Programs, 
these costs are typically in the range of 10 t 15% of the 
total program cost. The relative SRM&QA cost factors 
specified here are intended to require substantiative 
differences in the SRM&QA programs (and the associated costs) 
for the various program classifications in order to establish 
a meaningful ladder of cost/risk levels. 

Press #f white SPACE#d to continue'). 


close_window () . 
end. (* *1 *) 

topic '*2'. 

Window (' Note *2 yellow, red, white, 6, 6, 68,7) . 

say ('#e 

Outside/ Independent Review refers to reviews conducted by 
personnel who are not managing or directly associated with 
the program or the design effort (i.e., personnel who are 
not assigned to or in the management chain for the program 
and who are not preforming or managing the design effort) . 

Press #f white SPACE/d to continue'). 

close_window () . 
end. (* *2 *) 

close_window ( ) 
and 

collect () . 
column = ? column - 1. 
row = ?row - 1. 
end. (* Class B *) 


topic 'Class C'. 
column = ?column + 1. 
row = ?row + 1. 

window ('Class "C" Payload Characterization' , blue, white, white, ?column, ?row, 
72,17) . 
say ( ' #e 

===== CHARACTERIZATION, MISSION SUCCESS, AND SRM&QA COST GUIDELINES == = == = 

FOR CLASS C PAYLOADS 


CLASSIFICATION: 

Characterization : 

Typical Factors Used 
to Determine Payload 
Classifications : 


CLASS C 


Medium Priiority, Medium/High Risk 

Moderate national prestiege; 

Short hardware life required; 

Medium to low complexity; 

Medium cost; 

Short program duration; 

Few launch constraints; 

Retrieval /ref light or in-flight 
maintenance to recover from 
problems may befeasible. 



Achievement of 
Missioin Success 
Criteria: 


Moderate risks of not achieving 
mission success are accepted to 
permit significant cost savings. 
Reduced product assurance 
requirements are allowed. 


Estimated Relative 

SRM&QA Cost Factors #m*l#m: 0.4 x Class A 

======== GUIDELINES FOR SRM&QA PROGRAM REQUIREMENTS FOR PAYLOADS 


SRM&QA ELEMENT: 

Engineering Model, 
Prototype , F 1 ight 
And Spare Hardware 


Failure 

Investigation Board 
Requirements 

Treatement of Single 
Failure Points 
(SFPs) 


Qualification, 
Acceptance, And 
Protoflight Test 
Program 


EEE Parts 


Reviews #m*2#m 


Safety 


Materials 


Reliability 


Engineering Model Hardware For 
New Designs. "Protoflight" 
Hardware (In Lieu Of Separate 
Prototype And Flight Model (s) . 
Limited Flight Spare Hardware 
(For Long Lead Or Difficult To 
Replace Flight Unit(s) . 

Formal Board Required - Initiated 
And Conducted by Cognizant Field 
Center. 

Success Critical SFPs Are 
Allowed W/O Formal Waiver. 

Single String And Partially 
Single Sting Design Approaches 
Are Commonplace. 

Limited Qualification Testing For 
New Aspects Of The Design Plus 
Full Acceptance Test Program. 
Qualification Testing Required 
For Verification Of Safety 
Compliance And Interface 
Compatibility. Limited 
Development Testing. 

Grade II (per Mil-Std-975) or 
Upgraded Commerical. 

Limited Formal Reviews And 
Project Level Reviews. 

Per All Applicable NASA Safety 
Standards . 

Utilize Previously Tested/ Flown 
Materials Or Characterize New 
Materials. Acceptance Test Sample 
Lots of Procured Materials. 

FMEA/CIL Requirements Determined 
At The Project Level. Analysis 
Of Interfaces Required. Parts 
Stress Analysis Required For All 
Parts And Circuits. 



Maintainability 


Quality Assurance 


Software 


Maintainability Considered During 
Design, Sparing Provided Where 
Economical. 

Formal Inspection System 
Including Problem Reporting. 

Software Quality Assurance 
Program With Product Level 
Reviews . 


Press #f yellow SPACE/d to continue.'). 


topic '*1'. 

Window (' Note *1 yellow, red, white, 6, 6, 68,10, ) . 

say ('#e 

There are wide variations in the methods for specifying 
and acccounting for H SRM&QA costs". For Class A Programs, 
these costs are typically in the range of 10 t 15% of the 
total program cost. The relative SRM&QA cost factors 
specified here are intended to require substantiative 
differences in the SRM&QA programs (and the associated costs) 
for the various program classifications in order to establish 
a meaningful ladder of cost/risk levels. 

Press #f white SPACE#d to continue'). 


close_window ( ) . 
end. (* *1 *) 

topic ' *2 ' . 

Window (' Note *2 ', yellow, red, white, 6, 6, 68, 7) . 
say ('#e 

Outside/ Independent Review refers to reviews conducted by 
personnel who are not managing or directly associated with 
the program or the design effort (i.e., personnel who are 
not assigned to or in the management chain for the program 
and who are not preforming or managing the design effort) . 

Press #f white SPACE#d to continue'). 

close_window () . 
end. (* *2 *) 

close_window () 
and 

collect () . 
column = ?column - 1. 
row = ?row - l. 
end. (* Class C *) 

topic 'Class D'. 
column = ?column + 1. 
row = ?row + 1. 

window ('Class "D" Payload Characterization' , blue, white, white, ?column, ?row, 

72,17). 

say ( '#e 

===== CHARACTERIZATION, MISSION SUCCESS, AND SRM&QA COST GUIDELINES ====== 

FOR CLASS D PAYLOADS 



CLASSIFICATION : 


CLASS D 


Characterization: 

Typical Factors Used 
to Determine Payload 
Classifications : 


Achievement of 
Missioin Success 
Criteria : 


High Risk, Minimum Cost 

Little national prestiege; 

Short hardware life required; 

Low complexity; 

Low cost ; 

Short program duration; 
Non-critical launch time/orbit; 
Reflyable or econimicaly 
replaceable, in-flight 
maintenance may be feasible. 

Significant risks of not achieving 
mission success are accepted to 
permit minimum cost. Mimimal 
product assurance requirements 
are allowed. 


Estimated Relative , . 

SRM&QA Cost Factors #m*l#m: 0.1 x Class A 

GUIDELINES FOR SRM&QA PROGRAM REQUIREMENTS FOR PAYLOADS 


SRM&QA ELEMENT: 


Engineering Model, 
Prototype, Flight 
And Spare Hardware 

Limited Engineering Model 

And Flight Spare Hardware Hardware. 

Failure 

Investigation Board 
Requirements 

Failure Investigation Initiated 
And Conducted by Cognizant Field 
Center - Formal Board Not 
Required . 

Treatement of Single 
Failure Points 
(SFPs) 

Success Critical SFPs Are 
Allowed W/O Formal Waiver. 
Single String And Partially 
Single Sting Design Approaches 
Are Commonplace. 

Qualification, 
Acceptance , And 
Protoflight Test 
Program 

Qualification Testing Required 
Only For Verification Of Safety 
Compliance And Interface 
Compatibility. Acceptance Test 
Program For Critical Performance 
Parameters . 

EEE Parts 

Commercial 

Reviews #m*2#m 

Project Level Reviews. 

Safety 

Per All Applicable NASA Safety 
Standards . 


Materials 

Reliability 

Maintainability 
Quality Assurance 
Software #m*2#m 


Requirements Based On Applicable 
Safety Standards. 

Analysis Requirements BAsed On 
Applicable Safety Requirements. 
Analysis Of Interfaces Required. 

Requirements Based On Applicable 
Safety Standards. 

Requirements Based On Applicable 
Safety Standards . 

Requirements Basded On 
Applicable Safety Guidelines. 


Press #f yellow SPACE/d to continue.'). 

topic 

Window (' Note *1 ', yellow, red, white, 6, 6. 68. 10. ) . 

say ('#e 

There are wide variations in the methods for specif yincr 
and acccounting for "SRM&QA costs". For Class A Progr ams 
these costs are typically in the ranqe of 10 t 15% of the* 
total program cost. The relative SRM&QA cost factors 
specified here are intended to require substantiative 
differences in the SRM&QA programs (and the associated costs) 
for the various program classifications in order to establish 
a meaningful ladder of cost/risk levels. 


Press #f white SPACEfd to continue'). 

close_window () . 
end. (* *1 *) 


topic ' *2 ' . 

Window (' Note *2 
say ( '#e 


' ,yellow,red, white, 6,6, 68,7) . 


Outside/ Independent Review refers to reviews conducted by 
personnel who are not managing or directly associated with 
the program or the design effort (i.e., personnel who are 
not assigned to or in the management chain for the program 
and who are not preforming or managing the design effort) . 


Press #f white SPACE#d to continue'). 

close_window () . 
end. (* *2 *) 


close_window ( ) 
and 

collect () . 
column = ? col limn - i. 
row = ?row - l. 
end. (* Class D *) 

topic 'Nasa Management Instruction 8010. 1A' 
new_kb ( 'NMI . hkb' ) . 
end. (* NMI *) 



/ £ NMX K B ^ ) 

(* This File Displays the Entire NMI 8010. 1A Document Which Defines the *) 
(* classification of Payloads *) 

no_edit_key ( ) . 
no_debug () . 

do ( ' Display Document ' ) . 
new kb ( 'Payclass.hkb' ) . 


topic 'Display Document'. 

window ('NMI 8010. 1A' , yellow, red, yellow, 3 ,3, 78, 18) . 

Say 11111 8010 - 1A 
Manaaement Effective Date: November 21, 1990 

Instruction Expiration Date: November 21, 1990 

Responsible Office: Q/Office of Safety and Mission Quality #490SMQ#49 

Subject: CLASSIFICATION OF NASA PAYLOADS 


1. PURPOSE 

This Instruction establishes policies and responsibilities 
associated with classification of airborne a " d ®P^ ce . t 

which NASA has Design, Development, Test, and Evaluation #40DDT&E#41 

responsibility . 


2. APPLICABILITY AND SCOPE 

a. This Instruction is applicable to NASA Headquarters and 
field installations. 

b This Instruction should be implemented for all NASA payload 
flight equipment for which DDT&E responsibility is assigned 
to a field installation after release of the NMI. 
Applicability to equipment already assigned is at the 
discretion of the cognizant Headquarters Program Office. 


3. CLASSIFICATION PROVISIONS 


Classification provides a basis for: 

a. Mutual understanding among all involved organizations and 
individuals of the general approach that is to . be taken 
relative to cost versus confidence trade decisions for 
sped f ic equ ipmen t . 

b. Pre-selection of the official responsible for initiating 
and conducting investigations of in-flight, nonhazardous, 
nonpropagating failure of specific equipment. 

c. Structuring of field installation and Headquarters prepared 
guidelines, standards, or policies in such areas as 
environmental design and test; electrical, electronic, and 
electromechanical parts control; materials controls; 
configuration control; conduct of design reviews; and other 
elements that are amenable to tailoring for application to 
each class. 


d. Structuring of experience data so that effectiveness of 
approaches associated with each class can be evaluated and 
adjustments made accordingly. 


NMI 8010. 1A 

4. DEFINITIONS 
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For the purpose of this Instruction, the following definitions 
apply : 


a. Payload - Any airborne or space equipment or material that 
is not an integral part of the carrier vehicle /40i.e., not 
part of the carrier aircraft, balloon, sounding rocket, 
expendable or recoverable launch vehicle/ 41 . Included are 
items such as free-flying automated spacecraft, Spacelab 
payloads, Space Station payloads, flight hardware designed 
to conduct either coherent sets of experiments /40e.g., 
"Facility Class" instruments/4 1 or individual experiments, and 
payload support equipment. When used in this Instruction 
the term "payload" is intended to include only payloads for 
which NASA has DDT&E responsibility. 


k* Payload Class - The NASA designation classifying each 

program/payload according to the criticality of the mission 
to NASA and national objectives, program cost, and the 
acceptable level of risk of a partial or complete failure. 

5. LIMITATIONS 


All payloads must conform with all applicable NASA safety 
requirements. In the event of any conflict with this Instruction, 
the safety requirements shall take precedence. 

6. POLICIES 


a. NASA will recognize the four classes of payloads which are 
defined and characterized in Attachment A to this 
Instruction. The characterizations for Classes A through D 
contained in Attachment A are intended to serve as 
guidelines to define a meaningful ladder of cost/risk 
combinations for NASA payloads. 

b. Any equipment that constitutes a payload, or part of a 
payload, may be separately classified /40e.g., payload 
instrument, experiment, or support equipment/41. For example 
a Class A free flyer may incorporate instruments from 
Classes A and B. A Class A Spacelab or Space Station 
payload may incorporate instruments from all four classes. 

c. Guidelines for program Safety, Reliability, Maintainability, 
and Quality Assurance /40SRM&QA/41 and related requirements for 
Classes A through D are provided in Attachment B. Field 
installation and Headquarters organizations shall develop 
detailed policies, standards, and/or guidelines to adapt and 
expand upon the examples in Attachment B as necessary to 
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establish a consistent set of requirements a PP r ? p “**® 
the unique needs of their various payloads. ^ch subi B%40and 
requirements described by the examples in Attachment B J^Oand 
in the corresponding detailed documents which are prepared#41 
is intended to serve as an approved starting point for 
establishment of a complete set of DDT&E criteria and 
requirements tailored to the needs of a specific project. 

d. In all cases, nothing in this Instruction is intended to 
limit or constrain the flexibility of a project to devia 
from the guidelines in Attachment A or B, provided that the 
concurrence of cognizant field installation organizations 
and Headquarters Program Offices are obtained and 
documented . 

e Reqardless of class designation, all payloads are to be 

developed and fabricated using sound management, engineering 
and manufacturing practices. Cost savings are to be 
achieved by taking steps to balance the use of *®?°™[°® s to 
expected benefits appropriate for each class. Cos V^;®* 
tradeoffs shall be considered in determining requirements 
for NASA management visibility and day-to-day control, 
implementation of NASA- imposed "how-to* specif ications and 
requirements, deliverable documentation, redundancy, spares, 
engineering and prototype model hardware, parts and material 
controls, inspection and audit controls and qualification/ 
acceptance test programs. 


7 RESPONSIBILITIES 


a. Headquarters Program Offices are responsible for: 


( 1 ) 


Assigning the class designation for each 
proqr am/payload or payload element. The level of 
assembly selected for classification will usually 
consist of an integrated free flyer, or, m the case 
of Attached Payloads, an instrument. However, the 
Headquarters Program Office may establish the class 
designation at whatever level of assembly it considers 
appropriate for each project. 


( 2 ) 


Establishing a set of mission success criteria for 
each program/payload #40or payload elemental which 
reflect the key objectives of the program. Such 
criteria will typically be easily measurable and 
expressed in terms of the science objectives to be 
achieved #40i.e., remote sensing of a planet for 2 
years#41 or the service to be provided #40i.e., 95 percent 
availability of a single access link for 5 years#41. 
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(3) Defining acceptable risks for each program/payload or 
payload element and/or mission success criteria. 
Acceptable risks may be defined in terms of minimum 



reliability requirements, critically of achieving the 
various mission success criteria, acceptable failures 
or other appropriate criteria. ' 

(4) Notifying the Office of Safety and Mission Quality 
#40OSMQ#41 in writing of the assigned payload 
classifications. 

(5) Initiating and conducting investigations of in-flight 
nonhazardous, nonpropagating failure of specific ' 
Class A and B equipment in accordance with 
Attachment B. For specific Class B equipment, the 
Headquarters Program Office may delegate this 
responsibility to the cognizant NASA field center. 

b. Field installations are responsible for: 

(1) Recommending a class designation for their proposed or 
assigned payload equipment. 


(2) Recommending an appropriate classification breakdown 
into lower levels of assembly if payloads incorporate 
noncntical elements #40e.g., instruments or experiment 
hardware#41 for which lower class designations may be 
appropriate and cost effective. 


(3) Planning and implementing a balanced development/ 

acquisition effort that is consistent with 
paragraph 6e of this Instruction and incorporates the 
applicable subset of requirements shown in 
Attachment B. Where deviations from any of the 
guidelines in Attachment B are necessary, or where 
reclassifications are considered necessary, the 
Headquarters Program Office shall be coordinated with 
and any changes documented and approved by the ' 

Headquarters Program Office, with a copy to the OSMQ. 

(4) Maintaining documentation for each payload project 
showing current class designation together with a 
description of any deviations from the guidelines in 
Attachment B. This information should be documented 
m the Summary of Technical Plan section of the 
Project Plan and updated such that the current status 
is reflected by the latest Project Plan. 


NMI 8010. 1A 
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(5) Informing the cognizant Headquarters Progr am office 

and the OSMQ, in writing, of all significant in-flight 
failures that occur during baseline or extended 
missions. Significant failures are those that result 
in failure to achieve payload objectives or 
degradation of payload performance, reliability, 
re ^" r ^-® va kili'ty , or repairability to a level considered 
undesirable by the cognizant project office. 


(6) Initiating and/or conducting investigations of in-flight 
nonhazardous, nonpropagating failure of specific Class B-D 



equipment in accordance with Attachment B. 
c. The Office of Safety and Mission Quality is responsible for: 

(1) Exercising general oversight and agencywide 
coordination of implementation of this Instruction. 

(2) Serving as an agencywide focal point for collection, 
and correlation of payload classification and in— flight 
failure information, and dissemination of 

lessons learned therefrom. 

(3) Supporting Headquarters Program Offices in the 
development and review of payload class designations. 

8. CANCELLATION 

NMI 8010.1 dated September 26, 1979. 


ATTACHMENTS l 

A. Characterization, Mission Success and SRM&QA Cost Guidelines for 

Class A-D Payloads. _ _ , . 

B. Guidelines for SRM&QA Program Requirements for Class A-D Payloads. 


DISTRIBUTION: 

SDL 1 
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ATTACHMENT A - CHARACTERIZATION, MISSION SUCCESS AND SRM&QA COST GUIDELINES 

FOR CLASS A-D PAYLOADS 


CLASSIFICATION : 


Class A 


Character i z at ion : 


High Priority, Minimun Risk 


Typical Factors Used 
to Determine Payload 
Classifications : 


High national prestige; Long hardware life required; 
High complexity; Highest cost; Long program duration; 
Critical launch constraints; Retrieval/reflight or 
in-flight maintenance to recover from problems is not 
feasible. 


Achievement of 
Mission Success 
Criteria: 


All affordable programmatic and other measures are 
taken to achieve minimun risk. The highest practical 
product assurance standards are utilized. 


Estimated Relative* 

SRM&QA Cost Factors: 1. 0 


CLASSIFICATION : 

Characterization : 

Typical Factors Used 
to Determine Payload 
Classifications : 


Achievement of 


Class B 

High Priority, Medium Risk 

High national prestige; Medium hardware life required; 
High to medium complexity; High cost; .Medium program 
duration; Retrieval/reflight or in-flight maintenance 
to recover from problems is difficult or not feasible. 

Compromises are used to permit somewhat reduced costs 


Mission Success 
Criteria : 


while maintaining a low risk to the overall mission 
success and a medium risk of achieving only partial 
success. Stringent product assurance standards are 
utilized. 


Estimated Relative* 

SRM&QA Cost Factors: 0.7 X Class A 


CLASSIFICATION: 


Class c 


Characterization: Medium Priority, Medium/High Risk 


Typical Factors Used 
to Determine Payload 
Classif ications : 


Moderate national prestige; Short hardware life 
required; Medium to low complexity; Medium cost; 

Short program duration; Few launch constraints; 
Re trieval/ref light or in— flight maintenance to recover 
from problems may be feasible. 


Achievement of 
Mission Success 
Criteria: 


Moderate risks of not achieving mission success are 
accepted to permit significant cost savings. Reduced 
product assurance requirements are allowed. 


Estimated Relative* 

SRM&QA Cost Factors: 0.4 X Class A 


CLASSIFICATION: 

Characterization : 

Typical Factors Used 
to Determine Payload 
Classifications : 


Class D 

High Risk, Minimum Cost 

Little national prestige; Short hardware life 
required; Low complexity; Low cost; Short program 
duration; Non-critical launch time/orbit; Reflyable or 
economically replaceable, in-flight maintenance may be 
feasible. 


Achievement of 
Mission Success 
Criteria: 


Significant risk of not achieving mission success is 
accepted to permit minimum costs. Minimal product 
assurance requirements are allowed. 


Estimated Relative* 

SRM&QA Cost Factors: 0.1 X Class A 


* ® re w i d ? variations in the methods for specifying and accounting 

for SRM&QA costs • For Class A programs, these costs are typically in the 
range of 10 to 15% of the total program cost. The relative SRM&QA cost 
£^ Ct °« S s P ecified here are intended to require substantive differences in 
the SRM&QA programs #40and the associated costs/41 for the various program 
classifications m order to establish a meaningful ladder of cost/risk 
levels. 9 


ATTACHMENT B - GUIDELINES FOR SRM&QA PROGRAM REQUIREMENTS FOR CLASS A-D 
PAYLOADS 


CLASSIFICATION: Class A 

SRM&QA ELEMENTS: 

Engineering Model, 

Prototype , FI ight 


Engineering Model Hardware for new or modified designs. 
Separate Prototype and Flight Model Hardware. Full set 



and Spare Hardware 


Failure 
Investigation 
Board Requirements 

Treatment of Single 
Failure Points 
#49SFPs#49 


Qualification 
Acceptance, and 
Protoflight Test 
Program 

EEE Parts 

Reviews* 


Safety 

Materials 


Reliability 


Maintainability 


Quality Assurance 


Software* 


CLASSIFICATION: 

SRM&QA ELEMENTS: 

Engineering Model, 
Prototype, Flight 
and Spare Hardware 


Failure 

Investigation 


of assembled and tested "Flight Spare" replacement 
units. 


Formal Board Required - Initiated and Conducted by 
Headquarters . 


Success Critical SFP^'s are not permitted except by 
Formal Project Waiver. Retention of Unavoidable SFP"s 
requires Justification based on Risk Analysis and 
Implementation of Measures to Mitigate Risk. 

Full Formal Qualification and Acceptance Test Programs 
at all hardware levels. Extensive Design Margin and 
Development Testing for New or Modified Designs. 


Grade I #40per MIL-STD-975#41. 

Full Formal Review Program including Outside/ Independent 
Reviews . 

Per all applicable NASA Safety Standards. 

Verify heritage of previously used materials and qualify 
new or changed materials. Utilize source controls 
on procured materials and Acceptance Test each lot/batch. 

Failure Mode and Effects Analysis/Critical Items List 
#40FMEA/CIL#41, worst case performance and parts stress 
analyses required for all parts and circuits. 

Mechanical reliability and other reliability analyses 
required where appropriate. 

Formal Maintainability Program for all appropriate 
flight and critical ground support elements. 

Formal Quality Assurance Program including closed-loop 
problem reporting and analysis of SRM&QA and 
performance trends. 


Formal Software Quality Assurance Program including a 
formal review program with Outside/ Independent Reviews 
and independent verification and validation. 

Class B 


Engineering Model Hardware for new or significantly 
modified designs. "Protoflight" hardware #40in lieu of 
seperate prototype and flight modelsjdl except where 
Extensive Qualification Testing is anticipated. 

Spare #40or refurbishable prototyped 1 hardware as needed 
to avoid major program impact in flight units must be 
replaced. 

Formal Board Required - Initiated by Headquarters; may 
be conducted by Congnizant Field Center #40see Par.7a#405# 



Board Requirements 


Treatment of Single 
Failure Points 
#40SFPs#41 


Qualification 
Acceptance , and 
Protoflight Test 
Program 

EEE Parts 

Reviews* 


Safety 

Materials 


Reliability 


Maintainability 


Quality Assurance 


Software* 


CLASSIFICATION : 

SRM&QA ELEMENTS: 

Engineering Model, 
Prototype , F light 
and Spare Hardware 


Failure 
Investigation 
Board Requirements 

Treatment of Single 
Failure Points 
#49SFPs#49 

Qualification 
Acceptance , and 
Protoflight Test 


Success Critical SFP"s are allowed w/o formal waiver bu 
are minimized and mitigated by use of high reliability 
parts and additional testing. Essential spacecraft 
functions and key instruments are typically fully 
redundant. Other hardware has partial redundancy and/ 
or provisions for graceful degradation. 

Formal Qualification and Acceptance Test Programs 
may be combinded using "Protoflight" hardware 
approach. Design margin and development testing 
for new designs. 

Combination Grade I and Grade II #40per MIL-STD-975#41. 

Formal Review Program; may include Outside/ Independent 
Reviews . 

Per all applicable NASA Safety Standards. 

Utilize Previously Tested/Flown Materials or qualify 
new mateials. Acceptance test each lot of procured 
materials. 

FMEA/CIL required at a black box #40or circuit block 
diagram#4 1 level. Worst case performance and parts stre 
analyses required for all parts and circuits. 

Formal Maintainability Program for selected flight and 
ground support elements. 

Formal Quality Assurance Program including closed-loop 
problem reporting and analysis of SRM&QA and some 
performance trends. 

Formal Software Quality Assurance Program including a 
formal review program and software verification and 
validation; may include Outside /Independent Reviews. 

Class C 


Engineerig Model Hardware for New Designs. "Protoflight" 
Hardware #40in lieu of separate Prototype and flight 
models#41. Limited flight spare hardware #40for long leac 
or difficult to replace flight units#41. 

Formal Board Required - Initiated and conducted by 
Cognizant Field Center. 


Success Critical SFP"s are allowed w/o formal waiver. 
Single string and partially single string design 
approaches are commonplace . 

Limited Qualification Testing for new aspects of the 
design plus full acceptance test program. Qualification 
testing required for verification of safety compliance 


Program 

EEE Parts 
Reviews* 

Safety 

Materials 

Reliability 

Maintainability 

Quality Assurance 
Software* 

CLASSIFICATION: 

SRM&QA ELEMENTS: 

Engineering Model, 
Prototype, Flight 
and Spare Hardware 

Failure 
Investigation 
Board Requirements 

Treatment of Single 
Failure Points 
#49SFPs#49 

Qualification 
Acceptance , and 
Protoflight Test 
Program 

EEE Parts 

Reviews* 

Safety 

Materials 

Reliability 

Maintainability 


and interface compatibility. Limited Development 
Testing. 

Grade II #40per MIL-STD-975#41 or upgraded commercial. 

Limited Formal Reviews and Project Level Reviews. 

Per all applicable NASA Safety Standards. 

Utilize previously tested/flown materials or 
characterize new materials. Asseptance test sample 
lots of procured materials. 


FMEA/CIL Requirements determined at the project level. 
Analysis of interfaces required. Parts stress analysis 
required for all parts and circuits. 

Maintainability considered during design. Sparing 
provided where economical. 

Formal Inspection System including Problem Reporting. 

Software Quality Assurance Program with Project Level 
Reviews . 


Class D 


Limited Engineering Model and Flight Spare Hardware. 


Failure Investigation initiated and conducted by 
Congnizant Field Center - Formal Board Not Required 


Success Critical SFP"s are allowed w/o Formal Waiver. 
Single string and partially single string design 
approaches are commonplace. 

Qualification Testing Required only for verification 
of safety compliance and interface compatibility. 
Acceptance test program for critical performance 
parameters . 

Commercial . 

Project Level Reviews. 

Per all applicable NASA Safety Standards. 

Requirements based on applicable safety standards. 

Analysis Requirements based on applicable safety 
requirements. Analysis of interface required. 

Requirements based on applicable safety standards. 



Quality Assurance Requirements based on applicable safety standards. 

Software* Requirements based on applicable safety standards. 

* Outside/ Independent Review refers to reviews conducted by personnel who 
are not managing or directly associated with the program or the design effort 
#49i.e., personnel who are not assigned to or in the management chain for the 
program and who are not performing or managing the design effort#49. 


Press #fwhite SPACE#d to Continue']). 


close_window ( ) . 

end. (* Display Document *) 



(* IMPPLAN . KB *) 

(* THIS PROGRAM IS FOR FILLING OUT THE IMPLEMENTATION PLAN SECTION 
(* OF THE PROJECT PLAN. 


*) 

*) 


column = 2 . 
row = 2. 
no_edit_key () . 
no_debug () . 

curdir is read_line ('CURDIR.DAT'). 

curdir is string_replace (?curdir, ' ','',8). 

menu_choice = ' ' . 

menu_option is [ ' IMPLEMENTATION APPROACH ' , 

' SUMMARY WORK BREAKDOWN STRUCTURE' , ' DOCUMENTATION ' , 

'RETURN TO PREVIOUS MENU']. 

while ?menu_choice <> 'RETURN TO PREVIOUS MENU' 
then do (Ioutline) . 

topic 'Ioutline'. 
column = ?column + 1. 
row = ?row + 1. 

window ('4.5 Implementation Plan' , yellow, red, white, ?column, ?row,76, 17) . 
ask ('#e 


The Implementation Plan includes these three sections', 
menu_choice, ?menu_option) . 

if ?menu_cho i ce = 'IMPLEMENTATION APPROACH' 
then do ('Implementation Approach'). 

if ?menu_cho i ce = 'SUMMARY WORK BREAKDOWN STRUCTURE' 
then do ('Summary Work Breakdown Structure'). 

if ?menu_cho i ce = 'DOCUMENTATION' 
then do ('Documentation'). 

if ?menu_choice = 'RETURN TO PREVIOUS MENU' 
then new kb (' content . hkb ') . 


close_window () . 
column = ? column - 1. 
row = ?row - 1. 

end. (* Implementation Plan *) 
new_kb ( ' content . hkb ' ) . 

topic 'Implementation Approach' . 
column = ?column + 1. 
row = ?row + 1. 

window ('4.5.1 Implementation Approach' , blue, white, white, ?column, ?row, 72 , 11) . 
say ( ' #e 

Please indicate whether the project is an in-house activity or 
a contracted activity. Define the principle entities on the 
project team, including the contractor team and its responsibil- 
ities. If the contractor team has not yet been selected, include 
a description of the contractor procurement approach and schedule. 


Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 



to leave editor, and #fyellow RETURN#d to confirm save.'). 


edit_file (concat (C: \GARDEN\,?CURDIR, '\PPE4_5_1.DAT') , yellow, black, red, 6 , 12 , 7 
close_window ( ) . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_5_1.DAT' ) ) . 

column = ?column - 1. 
row = ?row - 1. 

end. (* Implementation Approach *) 


topic ' Summary Work Breakdown Structure ' . 
column = ?column + 1. 
row = ?row + 1. 

window ( ' 4 . 5 . 2 Summary Work Breakdown Structure ' , blue , white , white , 
?column,?row,72,12) . 
say (['#e 

Please provide a summary #mWork Breakdown Structure#m (WBS) down 
to the "appropriate level" (as agreed to between the Project 
Manager, and the Program Manager) and a brief description of 
each WBS element. The WBS structure should be related to line 
items on the project master schedule and to the resources 
section, and it should serve as the baseline WBS to be used 
in future budget reporting. 

Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and /fyellow RETURN#d to confirm save.']). 

edit_f ile (concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_5_2.DAT' ) , yellow, black, red, 6 , 12 , 7C 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, '\PPE4_5_2.DAT') ) . 

column = ?column - 1. 
row = ?row - l. 

end. (* Summary Work Breakdown Structure *) 


topic 'Documentation' . 
column = ?column + 1. 
row = ?row + 1. 

window ('4.5.3 Documentation' , blue, white, white, ?column, ?row, 72 , 11) . 
say ('#e 

Please provide a #mlist of documentation#m that includes 
all governing, hardware development, mission integration, 
and safety documentation. 

Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and #fyellow RETURN/d to confirm save.'). 

edit_f ile (concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_5_3.DAT' ) , yellow, black, red, 6 , 12 , 70 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, '\PPE4_5_3.DAT') ) . 

column = ?column - 1. 

row = ?row - l. 

end. (* Documentation *) 

topic 'Work Breakdown Structure' . 

collect () 

and 

dos ('WBS' , restore) . 



end. (* Work Breakdown Structure *) 

topic 'list of documentation', 
column = ? column + 1. 

r ow = ? fOW "f X • 

window('List of Documentation' , yellow, red, yellow, ?column, ?row, 71, 16) . 
say ( * /g 

Documents Subject to Formal Baselining and Configuration Control 

by APCGF 


Document 


Respons ibi 1 i ty 


o Science Requirements 
o Project Implementation Plan 
o Instrument Interface Agreement 
o Interface Control Document 

o Safety Plan 

o Verification Plan 

o Experiment Requirement Document 
o End Item Specification 
o Drawings 

o Test and Checkout Requirements and 
Specifications Document 
o instrument Program and Component 
List 

o Operations and Maintenance 
Requirements/Manual 
o Software Requirements/Manual 


PI 

Project Office 
Integrator 
Developer and/or 
Integrator 
Developer and/or 
Integrator 
Developer and/or 
Integrator 
Developer 
Project Office 
Developer 
Project Office 

Developer 

Developer 

Developer 


Any proposed change to items controlled above shall be 
approved by the Project Manager. Changes to^MSAD - controlled 
milestones, schedules and growth module specifications shall 
be submitted through the same channel. All contracts and 
agreements are based on project requirements. Technical re- 
quirements are set forth in specifications and technical docu- 
ments. Other requirements concerning management and operating 
functions necessary for conduct of the project are specified in 
the appropriate requirements documents. 


For all apparatus in development or planning, contractual 
requirements will ensure that all applicable documentation 
necessary for flight qualification is produced. At each level 
and at significant points in the APCGF Project, baselines will 
be established, and changes to these baselines will be tracked 
until a revised baseline is formally established. The accom- 
panying #mtable#m provides a sample listing of those documents 
that shall be required for acceptance of flight hardware. 


Press #f white SPACE#d to continue.'). 


column = ? column - 1. 
row = ?row - 1. 
close_window ( ) . 
end. (* documentation *) 


topic 'table', 
column - ?column + 1. 
row = ?row + 1. 

window ('Sample Listing of Documents' , blue, white, white , ?column, ?row, 72, 15) . 
say ('#e 


Documentation to Be Included in Accptance Data Package 


Log Book 

Mass Properties Data 
Wa ivers/ Deviations 
Test Procedure/Results 

Operation and Maintenance Requirements /Manual 
Drawing/ Engineering Change Orders 
Calibration Data 

Materials Usage List /Maintenance Requirements /Manual 
Safety Compliance Data 
Verification Data 
Special Handling Data 
Cleanliness Certification 
Pressure Vessel Log (If Applicable) 
Discrepancy/Problem Reports 
Acceptance/ Preship Review Data (shortages, 
open work, red tag items, shipping document, 
cert if icat ions ) 


Press #f yellow SPACE#d to continue.'). 


close_window () . 
column = ?column - 
row = ?row - l. 
end. (* table *) 


1 . 



(* MGTPLAN . KB *) 

(* THIS PROGRAM IS FOR COMPLETING THE MANAGEMENT PLAN SECTION OF THE 
(* PROJECT PLAN *) 


*) 


column = 2. 
row = 2 . 
no_edit_key () . 
no_debug () . 

curdir is read_line ('CURDIR.DAT'). 
curdir = string_replace (?curdir , ' ' , " , 8) . 
menu_choice = ' ' . 

menu_option is ['PROJECT MANAGEMENT RESPONSIBILITIES AND ORGANIZATION', 
'MISSION MANAGEMENT RESPONSIBILITIES AND ORGANIZATION', 

'RETURN TO PREVIOUS MENU' ] . 

while ?menu_choice <> 'RETURN TO PREVIOUS MENU' 
then do (MPoutline) . 

topic 'MPoutline' . 
column = ?column + 1. 
row = ?row + 1. 

window ('4.6 Management Plan' , white, red, yellow, ?column, ?row, 76,17) . 
ask ('#e 


The Management Plan Section includes these two parts:', 
menu_choice, ?menu_option) . 

if ? menu_cho ice = 'PROJECT MANAGEMENT RESPONSIBILITIES AND ORGANIZATION' 
then do ('Project Management Responsibilities and Organization'). 

if ? menu_cho ice = 'MISSION MANAGEMENT RESPONSIBILITIES AND ORGANIZATION' 
then do ('Mission Management Responsibilities and Organization'). 

if ?menu_choice = 'RETURN TO PREVIOUS MENU' 
then new_kb ( ' content . hkb ' ) . 

close_window () . 

column = ? column - l. 

row = ?row - 1. 

end. (* Management Plan *) 

new_kb ( ' content . hkb ' ) . 

topic 'Project Management Responsibilities and Organization', 
relatedf ile3 = '\PPE4_5_2.dat'. 
column = ?column + 1. 
row = ?row + 1. 

window ('4.6.1 Project Management Responsibilities and Organization' , blue, 
white, white, ?column, ?row, 72 , 12) . 
say ('#e 

Please provide an #morganization chart#m of the project, including 
the Center Director, Project Manager, Principle Investigator, 

Project Scientist, and other key positions on the project, and 
all external project interfaces. Relate the organization chart 
to the WBS (#mSection 4.5.2#m). 


Press #f yellow SPACE#d to continue.'). 



close_window () . 
column = ? column - 1. 
row = ?row - l. 

end. (* Project Management Responsibilities and Organization *) 


topic 'Mission Management Responsibilities and Organization' . 
column = ?column + 1. 
row = ?row + 1. 

window ('4.6.2 Mission Management Responsibilities and Organization' , blue, 
white, white, ?column, ?row, 72 , 14) . 
say ('#e 

Please identify the NASA center responsible for mission man- 
agement and describe what process is to be used to define the 
management and technical interface agreements between the NASA 
center responsible for the project and the Mission Management 
Center. Indicate the mission management responsibilities and 
interfaces on the #morganization chart#m prepared for Section 4.6.1. 
Identify all assumptions that will affect project plans, 
schedules and costs. 

Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and #f yellow RETURN #d to confirm save.'). 

edit_f ile (concat (C:\GARDEN\,?CURDIR, '\PPE4_6_2.DAT') , yellow, black, red, 6, 12, 70 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4_6_2.DAT' ) ) . 

column = ?column - 1. 
row = ?row - 1. 

end. (* Mission Management, Responsibilities and Organization *) 

topic 'organization chart', 
collect ( ) and 
dos ( 'ORGEXPL' , restore), 
end. (* organization chart *) 

topic ' Section 4.5.2'. 
column = ?column + 1. 
row = ?row + 1. 

related_answer is read(concat(C:\GARDEN\,?curdir,?relatedfile3) ) . 
window ('4.5.2 Summary Work Breakdown Structure ' , blue , white , white , 

?column, ?row, 73,15) . 
say (' 

This is your answer for Section 4.5.2: #t #n', 

?related_answer, '#n #n #n #n #n 

Press #f yellow SPACE#d to continue.'). 


column = ?column - 1. 
row = ?row - 1. 
close_window (). 
end. (* Section 5.2 *) 



(* COSTCONT.KB *) 

(* THIS PROGRAM IS FOR FILLING OUT THE COST CONTROL PLAN SECTION 
(* OF THE PROJECT PLAN. 

column = 2 . 
row = 2. 
no_edit_key () . 
no debug ( ) . 

curdir is read_line ('CURDIR.DAT'). 
curdir = string_replace (?curdir , ' ' , ' ' , 8) . 

menu choice = ' ' . 

menu - opt ions is [ ' RESOURCES ' , ' COST CONTROL GUIDELINES' , 

'COST REPORTING AND CONTROL STRUCTURE COST CONTROL STRATEGY', 
'RETURN TO PREVIOUS MENU']. 

while ?menu_choice <> 'RETURN TO PREVIOUS MENU' 
then do (CCoutline) . 

topic 'CCoutline' . 
column = ?column + 1. 
row = ?row +1. 

window ('4.8 Cost Control' , white, red, white, ?row, ?column, 76, 17) . 
ask ( ' #e 

The Cost Control Plan Includes these four sections:', 
menu_cho ice, ?menu_opt ions) . 

if ?menu_choice = 'RESOURCES' 
then do ( ' Resources ' ) . 

if ?menu choice = 'COST CONTROL GUIDELINES' 
then do ('Cost Control Guidelines'). 

if ?menu_cho ice = 'COST REPORTING AND CONTROL STRUCTURE' 
then do ('Cost Reporting and Control Structure'). 

if ?menu_cho ice = 'COST CONTROL STRATEGY' 
then do ('Cost Control Strategy'). 

if ?menu_cho ice = 'RETURN TO PREVIOUS MENU' 
then new kb ( ' content . hkb ' ) . 


*) 

*) 


close_window () . 

column = ?column — 1. 

row = ?row - 1. 

end. (* Cost Control Plan *) 

new kb ( ' content . hkb ' ) . 


topic 'Resources', 
relatedf ile4 = '\PPE4_4_8.DAT'. 
column = ?column + 1. 
row = ?row + 1. 

window ('4.8.1 Resources' , blue, white, white, ?column,?row, 72, 15) . 

say ( [ ' #e 

Please specify the funding (including contingency) and man- 
power requirements needed for the life of the project against 
the #mWBS#m. These resource requirements should be consistent with 



results from the Independent Cost Review held in conjunction 
with the #mRDR#m. Identify any assumptions made in determining the 
cost. Select the appropriate WBS level to be the Cost Reporting 
level. Identify any use to be made of other facilities for which 
another entity (other than the project) will be financially 
responsible. (This should be consistent with facility usage 
described in fmSection 4.4.8#m.) 

Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and #f yellow RETURN#d to confirm save.']). 

edit_file (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4 8 l.DAT') , yellow, black, red, 6 , 12 70 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4 8 l.DAT')). 

column = ?column - l. 
row = ?row - l. 
end. (* Resoruces *) 


topic 'Cost Control Guidelines', 
column = ?column + 1. 
row = ?row + l. 

window ('4.8.2 Cost Control Guidelines' , blue, white, white, ?column 

72,13). 

say ( [ '#e#e 


, ?row, 


Please define the cost control guidelines to be used in 
coping with cost variations at the different project levels. 

The following are ffyellow examples#d of guidelines that #fyellow may be ust 
and are not intended to be universally applied. Each project 
can develop its own guidelines according to the individual 
project needs. 


a. MSAD Allowance for Program Adjustment (APA) is to be utilized 
for changes in program scope imposed by external circumstances, 
such as change in launch date or launch vehicle and internal 
changes in the science requirements. 

b. Project Office Contingency is to be utilized to fix internal 
problems for the PI#39s or hardware contractor, such as design 
changes, parts procurement, alternate approaches, and change of 
subcontractors . 


c. Contingency reserves at the lower #mWBS#m levels (if they exist) 
will be used to solve problems in those WBS elements. Only when 
problems cannot be solved within the WBS element are they to be 
referred to the next higher cost control point. 

Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and #f yellow RETURN#d to confirm save.']). 

edit— file (concat (C: \GARDEN\ , ?CURDIR, ' \PPE4 8 2 .DAT') , yellow, black, red, 6, 12 , 70, 
close_window () . — ' ' 

close (concat (C: \GARDEN\ , 7CURDIR, ' \PPE4 8 2. DAT')), 

column = ?column - l. 
row = ?row - l. 

end. (* Cost Control Gudielines *) 

topic 'Cost Reporting and Control Structure', 
column = ?column + 1. 



row = ?row + 1. 

menu_opt ion 2 is ['NASA REPORTS ' , ' CONTRACTOR REPORTS' , 'RETURN' ] . 
menu_choice2 = ' ' . 
while ?menu_choice2 <> 'RETURN' 
then do ('cost reporting'), 
new kb ( ' costcont . hkb ' ) . 
topic 'cost reporting' . 

window ('4.8.3 Cost Reporting and Control Structure' , blue, white, white, 
?column,?row,74, 15) . 
ask ( '#e 


This section includes these two parts: ' ,menu_choice2 , ? 
menu_option2 ) . 

if ?menu_choice2 = 'NASA REPORTS' 
then do ('NASA REPORTS'). 

if ?menu_cho ice2 = 'CONTRACTOR REPORTS' 
then do ('CONTRACTOR REPORTS'). 

if ?menu_choice2 = 'RETURN' 
then new_kb ( ' costcont . hkb ' ) . 

end. (* cost reporting *) 


close_window () . 
column = ? column - 1. 
row = ?row - l. 

end. (* Cost Reporting and Control Structure *) 

topic 'NASA Reports', 
column. = ? column + 1. 
row = ?row + 1. 

window ('4.8.3. 1 NASA Reports' , blue, white, white ,?column, ?row, 72, 11) . 
say ( [ ' #e 

Please show the #mWBS#m structure to be used for cost reporting 
and control, and identify the monthly Management Information 
Control System (MICS) (or equivalent) and Project Operating 
Plan (POP) reporting format to be used. These should result 
from negotiations between the Project and Program Managers and 
will vary in detail depending on project size and complexity. 

Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and #f yellow RETURN#d to confirm save.']). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, '\E4_8_3_1.DAT') , yellow, black, red, 6, 12 , 
close window () . 

close (concat (C: \ GARDEN \,?CURDIR, ' \E4_8_3_1.DAT' )) . 

column = ? column - 1. 

row = ?row - 1. 

end. (* NASA Reports *) 

topic 'Contractor Reports', 
column = ?column + 1. 
row = ?row + 1. 

window ('4. 8. 3. 2 Contractor Reports' , blue, white, white, ?column, ?row, 72,11) . 

say ( ' #e 


Where applicable, please delineate the contractor reports to 
be provided to the NASA center. 

Press #f yellow RETURN KEY#d to enter the editor, if yellow ESC#d 
to leave editor, and #fyellow RETURN#d to confirm save.'). 

edit_file (concat (C: \GARDEN\ , 7CURDIR, ' \E4_8_3_2.DAT') , yellow, black, red, 6, 12 , 7C 
close_window ( ) . 

Close (concat (C: \GARDEN\ , 7CURDIR, ' \E4_8_3_2.DAT' ) ) . 

column = ? column - 1. 
row = ?row - 1. 

end. (* Contractor Reports *) 


topic 'Cost Control Strategy', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.8.4 Cost Control Strategy' , blue, white, white,? column,? row, 72, 13) . 
say {'ie 

Discuss the courses of action to be followed in the event 
of cost growths. The entire hardware development process should 
be considered, including the test plans, support equipment, 
and facility requirements, etc., as well as the mainline flight 
hardware development. 

Your discussion should include the prioritization of science 
requirements, science and hardware development descope options, 
and appropriate decision points. Program stretch-out options 
in 

should also be addressed if appropriate. Obviously, this section 
should be developed with a high degree of participation by the 
Principle Investigator and Project and Program Scientists. Over- 
all discussions on cost management, such as how to deal with 
overruns and underruns at the lower #mWBS#m and project levels, should 
also be included. 

Press if yellow RETURN KEY#d to enter the editor, if yellow ESC#d 
to leave editor, and if yellow RETURN/d to confirm save.'). 

edit_f ile (concat (C:\GARDEN\,?CURDIR, '\PPE4_8_4.DAT') , yellow, black, red, 6, 12, 70 
close_window (). 

close (concat (C: \GARDEN\ , ?CURDIR, ' \PPE4_8_4 . DAT' ) ) . 

column = ? column - 1. 
row = ?row - 1. 

end. (* Cost Control Strategy *) 

topic 'Section 4.4.8'. 
column = ? column + 1. 
row = ?row + 1. 

related_answer is read(concat (C: \GARDEN\ , ?curdir, ?relatedf ile4) ) . 
window ('4.4.8 Facilities' , blue, white, white, ?column, ?row, 73,15) . 
say (' 

This is your answer for Section 4.4.8: it in', 

?related_answer, 'in in in in in 

Press if yellow SPACE#d to continue.'). 


column = ? column - l. 
row = ?row - 1. 
close window () . 



end . ( * Section 4.4.8 * ) 


topic 'RDR'. 
column = ? column + 1. 
row = ?row + 1. 

window ('RDR' , blue, white, white, ?row, ?column, 72, 14) . 
say('#e 


Requirements Definition Review 


Press #fyellow SPACE#d to continue.') 


close_window () . 
column = ? column - 1. 
row = ?row -1. 
end. (* RDR *) 

topic 'WBS'. 

column = ?column + 1. 

row = ?row + 1. 

window ('WBS' , blue, white, white, ?row,?column, 70, 10) . 
say ( ' #e 


Work Breakdown Structure 


Press #f yellow SPACE#d to continue.') 


close_window ( ) . 
column = ? column - 1. 
row = ?row -1. 
end. (* WBS *) 



(* Projrev.kb *) 

(* This is the file for the completion of the Project Reviews and *) 

(* Meetings section of the Project Plan. *) 

column = 2 . 
row =2. 
no_edit_key ( ) . 
no_debug ( ) . 

curdir is read_line (' CURDIR.DAT' ) . 
curdir = string_replace (?curdir,' ',",8). 
menu_choice = ' ' . 

menu_options is [ ' INTERNAL REVIEWS ' , ' EXTERNAL REVIEWS ' , 

'DESIGN AND READINESS REVIEWS' , 'RETURN TO PREVIOUS MENU']. 

while ?menu_choice <> 'RETURN TO PREVIOUS MENU' 
then do (PRoutln) . 
topic 'PRoutln' . 
column = ?column + 1. 
row = ?row + 1. 

window ('4.9 Project Reviews and Meetings' , white, red, yellow, ?column, ?row, 
76,17) . 
ask ( ' #e 

Project Reviews and Meetings includes the following topics:', 
menu choice, ?menu_options) . 


if ?menu_cho ice = 'EXTERNAL REVIEWS' 
then do ('External Reviews'). 

if ?menu_choice = 'INTERNAL REVIEWS' 
then do ('Internal Reviews'). 

if ?menu_choice = 'DESIGN AND READINESS REVIEWS' 
then do ('Design and Readiness Reviews'). 

if ?menu_choice = 'RETURN TO PREVIOUS MENU' 
then new_kb ( ' content . hkb ' ) . 

close_window ( ) . 
column = ?column - 1. 
row = ?row - l. 

end. (* Project Reviews and Meetings *) 
new_kb ( ' content . hkb ' ) . 

topic 'Internal Reviews', 
column = ?column + 1. 
row = ?row + 1. 

window ('4. 9. 1.1 Internal Reviews' , blue, white, white, ?column, ?row, 72 , 11) . 
say ('#e 

Please identify weekly or monthly project meetings and 
reviews with the NASA center#39s management as appropriate. 


Press #f yellow RETURN KEY#d to enter editor, #f yellow ESC#d 
to leave editor, and #fyellow RETURN#d to confirm save.'). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \E4_9_1_1.DAT' ) , yellow, black, red, 6 , 12 , 70, 



close_window ( ) . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \E4_9_1_1.DAT' ) ) . 

column = ? column - l. 

row = ?row - 1. 

end. (* Internal Reviews *) 

topic 'External Reviews', 
column = ?column + 1. 
row = ?row + 1. 

window ('4. 9. 1.2 External Reviews' , blue, white, white, ?column,?row, 72, 11) . 
say ('#e 

Please identify biweekly telecons, monthly reviews, or peri- 
odic program reviews with NASA Headquarters, Mission Management, 
etc., as appropriate. 


Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and #fyellow RETURN#d to confirm save.'). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, '\E4_9_1_2.DAT') , yellow, black, red, 6 , 12 , 70 
close_window ( ) . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \E4_9_1_2.DAT' ) ) . 

column = ? column - l. 

row = ?row - 1. 

end. (* External Reviews *) 

topic 'Design and Readiness Reviews', 
column = ?column + l. 
row = ?row + 1. 

window ('4. 9. 1.3 Design and Readiness Reviews' , blue, white, white, ?column, 

?row, 72 , 11) . 
say ('#e 

Please make reference to the major project reviews, including 
those required by the MSAD management plan as well as integrated 
payload reviews, safety reviews, and flight readiness reviews. 

Press #f yellow RETURN KEY#d to enter the editor, #f yellow ESC#d 
to leave editor, and #fyellow RETURN#d to confirm save.'). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \E4_9_1_3.DAT') , yellow, black, red, 6 , 12 , 70 
close_window ( ) . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \E4_9_1_3.DAT' ) ) . 

column = ?column - 1. 
row = ?row - 1. 




APPENDIX G 


Science Requirements Envelope Document Software Listing 




(*ENVMMENU.KB 

(* 


This is the main menu of the Science Requirements *) 
Envelope Document *) 


no_edit_key ( ) . 
no_debug () . 
action = ' ' . 

nasaloop = 1. 
glossary_load = 0. 
column = 3 . 
row = 3. 
yn = [YES, NO] . 

menu_option is ['HOW TO USE THE SYSTEM' , 

'PROJECT SELECTION', 

'SCIENCE REQUIREMENTS ENVELOPE DOCUMENT (OVERVIEW)', 

'GLOSSARY/ ACRONYMS' , 

'PRINT GLOSSARY/ ACRONYMS' , 'EXIT SYSTEM']. 
menu_choice = ' ' . 

while ?menu_choice <> 'EXIT SYSTEM' 
then do (nasamenu) . 

topic 'nasamenu'. 

window (' ',,,,3,3,77,18). 

ask ( [ ' #e #s 

Please enter your choice of activities from the list. ' ] ,menu_choice, 
?menu_option) . 

if ?menu_choice = 'HOW TO USE THE SYSTEM' 
then new_kb ( ' envintro . hkb ' ) . 

if ?menu_choice = 'SCIENCE REQUIREMENTS ENVELOPE DOCUMENT (OVERVIEW) ' 
then new_kb ( ' en vo ver . hkb ' ) . 

if ?menu_choice = 'PROJECT SELECTION' 
then new_kb ( ' epr o j ect . hkb ' ) . 

if ?menu_choice = QUIT 
then stop () . 

if ? menu_cho ice = 'GLOSSARY/ ACRONYMS' 
then glossary_load = (?glossary_load + 1) 
and 

do (glossary) . 


if ?menu_choice = 'PRINT GLOSSARY/ACRONYMS' 
then 

ask ( ' #e 

The printing of the glossary/ acronym list can require 
a significant amount of time (5-10 minutes depending 
on your system) . Are you sure you want to print the 
glossary at this time?' , print ok, ?yn) 
and 

if ?printok = NO 

then new_kb ( ' ENVMMENU . CKB ' ) 
else 



window ( , white, red, yellow, l, 16,27 ,4) 
and 

WRITE ('con:', 

' GLOSSARY is being 
printed. 


Please stand by. ') 

and 

glossary_print is read ( 'ENVTERMS.DAT' ,, '//KSC' ) 
and 

glossary_pr int is str ing_replace ( ?glossary_j>rint ,'//',' 
and 

glossaryjprint is string_replace (?glossary_print, ' /end' , " ) 
and 

print (?glossary_print) 
and 

glossary_print is read ( 'ENVTERMS.DAT' ,' //KSC' ) 
and 

glossary_print is string_replace(?glossary__print, '//' , ' 
and 

glossary_print is string_replace (?glossary_print, ' /end' , " ) 
and 

print (?glossary_print) 
and 

close_window () . 


') 


') 


(* close_window () . *) 

( * **************************************************************** * ) 
topic glossary. 

window ('LISTING OF NASA GLOSSARY AND ACRONYMS' , blue, white, white, 1 , 1, 80, 20) . 


if ?glossary_load = 1 
then 

window ( , white , red , yellow, 1,16,27,4) 
and 

WRITE ('con:', 

' A slight delay will 
occur while the 
glossary is loaded. 

Please stand by. ') 

and 

glossary_text is read ('ENVINDEX.DAT') 
and 

close_window ( ) 
and 

close ('ENVTERMS.DAT'). 

say (?glossary_text) . 

close_window () . 

end. (* glossary *) 

topic mark (f ind_string) . 
column = ?column + 1. 
row = ?row + 1. 

text is read ( ' ENVTERMS . dat ' , concat ('//', ?f ind_string) , ' /end' ) . 
window (?find_string, blue, white, white, ?column,?row, 72, ) . 
say (?text) . 



column = ? column - 
row = ?row - 1. 
close_window ( ) . 
end. (* mark *) 


end. (* envmmenu *) 



( *ENV INTRO . KB 
(* 


*) 

*) 


This is the introductory screen for the 
Science Requirements Envelope Document 


yn is [YES, NO], 
column = 3 . 
row = 3 . 
no_edit_key () . 
no_debug ( ) . 
tried = 0. 


do (so_you_want_to_f ly) . 

new_kb ( ' envmmenu . ckb ' ) . 

topic so_you_want_to_f ly. 
say ( ' 


#bmagenta So you want to fly on the Shuttle. #d 

Well, before you can, we must get a little information about 
your experiment and its requirements. 

If you have flown with us in the past, you may remember a 
substantial amount of paper documentation was required. This 
application, the #mAutomated Payload Experiment Tool#m, is designed 
to alleviate much of the burden of the document preparation and 
maintenance process, by utilizing a #mhypertext#m, knowledge-based 
system. This system can be used to prepare one of our support 
documents, the #mScience Requirements Envelope Document #m, which 
provides an envelope or volume of science requirements for a type 
of experimentation. 


if ?tried = 0 
then 


Press #fyellow 


column = ?column + 1 
and 

row = ?row + 1 
and 

window ( ' ', white, red, white) 
and 


SPACEID 


to continue . ' ) . 


say ('#e 

For more information on a highlighted topic, just move 
the mouse to that word and click. The information 
will immediately be displayed. If you are not using a 
mouse, please use the function keys as indicated at the 
bottom of the screen. 

For multiple page definitions, please use the #f yellow Page Up#d 
and #fyellow Page Down#d keys to scroll back and forth through 
the pages. Multiple page displays are indicated by the 
#fyellow Page x of x #d message at the lower right of the screen. 


For help at anytime throughout the application, select 

the #fyellow Fl#d key. This will retrieve location sensitive 



help information, and may be called from the system 
or system-called edit screens. 

This will be the method by which support documentation 
will be retrieved throughout this application. 

Press #fyellow SPACE#D to continue.') 

and 

close_window ( ) 
and 

tried = 1 
and 

column = ? column - 1 
and 

row = ?row - 1 
and 

do (so_you_want_to_f ly) . 


topic mark (f ind_string) . 
column = ?column + 1. 
row = ?row + l. 

text is read ( 'nasaterm.dat' ,concat ('//' ,?find_string) ,' /end' ) . 
window (?find_string,blue,white,white,?column,?row,72, ) . 
say (?text) . 
column = ? column - l. 
row = ?row - 1. 
close_window () . 
end. (* mark *) 


end. (* so_you_want_to_f ly *) 



( *ENVOVER . KB 
(* 


This program lists the outline for 

the Science Requirements Envelope Document. 


*) 

*) 


no_edit_key () . 
no_debug ( ) . 
row = 3. 
column = 3. 

(* show_outline =0. *) 
width = 72. 
length = 12. 

do (soutline) . 

new_kb ( ' eout 1 ine . hkb ' ) . 

(* Topic mark allows for the use of hypertext. *) 

topic mark (f ind_string) . 
row = ?row + 1. 
column = ?column + 1. 

text is read ( ' NASATERM . DAT ' , concat ( '// ' , ?f ind_string) , ' /end' ) . 
window (?find_string, blue, white, white, ?column, ?row, 

76,17). 
say (?text) . 
close_window ( ) . 
row = ?row - 1. 
column — ? column -l. 

end. (*topic mark*) 


topic soutline. 

(*if show_outline = 0 
then 

show_outline = ?show_outline +1. *) 

window ('Overview and Explanation' , blue, white, white, ?column, ?row, 77 , 18) . 
say ('#e 

#fyellow PURPOSED 

The Science Requirements Envelope Document provides an envelope 
or volume of science requirements for a type of experimentation which 
is intended to encompass the science requirements generated by individ- 
ual experiments of that type. The primary purpose of the document is to 
provide science requirements against which hardware can be conceptual- 
ized such that later, when specific Pis are chosen, their individual 
requirements will fall within the requirements originally stated in the 
Science Requirements Envelope Document. 

#fyellow FUNCTION#d 

The Science Requirements Envelope Document should provide: 

1. A general description of the type of scientific 
investigations to be performed. 

A formal establishment of the scientific rationale for 
conducting the type of scientific investigation defined. 


2 . 



3 . 


A formal establishment of the science objectives of the type 
of experiments to be performed. 

4. A general description of the observational measurement, 
environmental, and data requirements which accompany 
this type of experimentation. 

#f yellow PREPARATION APPROVAL AND UPDATING#d 

The Discipline Project Scientist, utilizing inputs from a 
Science Development Team, Discipline Working Groups or other sources, 
will prepare and submit the Science Requirements Envelope Document. 
The Discipline Program Scientist will concur with the document 
and the MSAD Chief Scientist will approve the intitial document and 
changes thereto. The document will be maintained under change 
control by the appropriate Center and will be used to drive con- 
ceptual hardware development until such time as the Hardware 
Capabilities Document has been developed and approved. At the 
appropriate time, to be determined by the MSAD Chief Scientist, 
the document will be abandoned and the individual Science 
Requirements Documents will be used to establish the requirements 
on the hardware. 


Press #f yellow SPACE#d to continue. 7 ). 


end. (* soutline *) 



(* EOUTLINE . KB *) 

(* THIS PROGRAM IS LETS THE USER VIEW THE QUESTIONS TO BE FILLED OUT *) 

(* THAT ARE NECESSARY FOR THE COMPLETION OF THE ENVELOPE DOCUMENT *) 

no_edit_key ( ) . 

no_debug () . 

column =3. 

row = 3. 

menu choice = 7 7 . 

menu_option is [ ' INTRODUCTION/ SUMMARY 7 , 7 BACKGROUND 7 , 

7 JUSTIFICATION FOR CONDUCTING THIS EXPERIMENT IN SPACE 7 , 

7 DESCRIPTION OF EXPERIMENT TYPES 7 , 7 SCIENCE REQUIREMENTS ENVELOPE 7 , 

7 OTHER REQUIREMENTS 7 , 'RETURN TO MAIN MENU 7 ] . 

while ?menu_choice <> 'RETURN TO MAIN MENU 7 
then do (view_outline) . 

new_kb ( 7 envmmenu . hkb 7 ) . 

topic 7 view_outline 7 . 

window ('Overview and Explanation 7 , blue, white, white, ?row,?column, 77, 18) . 
ask ( 7 #e 


The Outline for the Science Requirements Envelope Document: 7 , 
menu_choice, ?menu_option) . 

if ?menu_choice = 7 INTRODUCTION/ SUMMARY 7 
then do ( 7 Introduction/ Summary 7 ) . 

if ?menu_choice = 'BACKGROUND 7 
then do ('Background'). 

if ?menu_cho ice = 7 JUSTIFICATION FOR CONDUCTING THIS EXPERIMENT IN SPACE 7 
then 

do ('Justification for Conducting This Experiment In Space 7 ). 

if ?menu_cho ice = 'DESCRIPTION OF EXPERIMENT TYPES' 
then do ('Description of Experiment Types'). 

if ?menu_cho ice = 'SCIENCE REQUIREMENTS ENVELOPE 7 
then new_kb ( 7 SHOWSRE . HKB 7 ) . 

if ?menu_cho ice = 'OTHER REQUIREMENTS' 
then do ( 7 Other Requirements 7 ) . 

if ?menu_cho ice = 'RETURN TO MAIN MENU 7 
then new_kb ( 7 envmmenu . ckb 7 ) . 

end. (* view outline *) 

( * = = == = = = === == = == ===Thr eaded topics==================* ) 

topic 7 Introduction/ Summary 7 . 
column = ?column + 1. 
row = ?row + 1. 

window ('1.0 Introduction/ Summary 7 , blue , white , white , 
?column,?row,76,17) . 
say ( 7 #e 

Provide a brief discussion describing the following areas: 

1.1 Description of Experiment Type or Class 



1.2 Scientific Knowledge to be Gained From This Type 
of Experimentation 

1.3 Value of Knowledge of This Type of Experimentation 
to Scientific Field 

1.4 Necessity for Space Environment to Experiment Type 


Press #f yellow SPACE#d to continue.'). 

close_window () . 

row = ?row - 1. 
column = ? column -1. 


end. (*Introduct ion/ Summary*) 

topic 'Background'. 

column = ?column + l. 
row = ?row + 1. 

window ('2.0 Background' , blue, white, white, Tcolumn, ?row, 

76,17) . 
say ( ' #e 

Provide a brief discussion describing the following areas: 

2.1 Scientific Field to which the Experiment Type Belongs 

2.2 Current Application for Research in the Field 

#m2.3 Brief Historical Account of Prior Research in the Field#m 
#m2 . 4 Current Research#m 

2.5 Relationship of Proposed Experiment type to 
Scientific Field 

2.6 Anticipated Advance in State of the Art for 
This Type of Experimentation. 

Press #f yellow SPACE#d to continue.'). 

close_window () . 

row = ?row - 1. 
column = ? column -1. 

end. ( ‘Background* ) 

topic 'Justification for Conducting This Experiment in Space', 
column = ?column + 1. 
row = ?row + 1. 

window ('3.0 Justification for Conducting This Experiment in Space' 
blue, white, white, ?column, ?row, 76, 17) . 

say ( ' #e 

Provide a brief discussion describing the following areas: 



3 . 1 Limitations of Ground-Based Testing 

3.2 Limitations of Drop Towers 

3.3 Limitations of Testing in Aircraft 

3.4 Need for Accommodations in the Shuttle 

3.5 Limitations of Mathematical Modeling 

3.6 Limitations of Other Modeling Approaches 

Press #f yellow SPACE#d to continue.'). 
close_window () . 

row = ?row - l. 
column = ? column -1 . 

end. (* Justification for Conducting This Experiment in Space*) 

topic 'Description of Experiment Types', 
column = ?column + 1. 
row = ?row + 1. 

window ('4.0 Description of Experiment Types' , blue, white, white, 
?column , ?row, 76 , 17 ) . 
say ( '#e 

Provide a detailed description of the following areas: 

4 . 1 General Description of Type of Experiments 

4.2 Types of Experiment Procedures to be Used. 

4.3 Types of measurements and ranges of values required 


Press #f yellow SPACE#d to continue.'). 
close_window () . 

row = ?row - 1. 
column = ?column -1 . 

end. (‘Description of Experiment Types*) 


topic '2.3 Brief Historical Account of Prior Research in the Field', 
row = ?row + 1. 
column = ?column + 1. 

window ('2.3 Brief Historical Account of Prior Research in the Field', blue 
white, ?column, ?row, 76, 16) . 
say ('#e 


This section summarizes previously conducted studies 



not including current research and results. 


Press #fyellow SPACE#d to continue. '). 

close_window () . 
row = ?row - 1. 

column = ? column - 1. . 

end. (*2 . 3 Brief historical account of prior research*) 

topic '2.4 Current research', 
row = ?row + 1. 

window ('2.4 Current research' , blue, white, white ,?column, ?row, 

76,16) . 
say ( ' #e 


This section summarizes the most recently conducted studies 
or related activities and their results. 

Press #fyellow SPACE#d to continue. '). 

close_window ( ) . 
row = ?row - 1. 
column = ? column - 1. 
end. (*2 . 4 Current research*) 


topic ' Other Requirements ' . 
row — ?row + 1. 
column = ? column +1. 

window ('6.0 Other Requirements ' , blue , white , wmte , 

?column , ?row ,76,17) . 
say ( ' #e 

Be sure to describe any other applicable material which is 
not presently addressed in these requirements. 


Press #f yellow SPACE#d to continue.'). 

close_window ( ) . 

row = ?row - 1. 
column = ? column - 1. 
end. ( *6 . 0 Other Requirements*) 


(* 




===== end subtopics==== : 



(* SHOWSRE.KB *) 

(* THIS PROGRAM IS FOR DISPLAYING THE SCIENCE REQUIREMENTS ENVELOPE *) 
(* SECTION OF THE SCIENCE REQUIREMENTS ENVELOPE *) 


column = 3. 
row = 3. 
no_edit_key () . 
no_debug ( ) . 


curdir is read_line ('curdir.dat'). 
curdir = string_replace (?curdir, ' ' , ' ' ,8) . 
menu choice = ' ' . 


menu_option is [ ' EXPERIMENT SAMPLE REQUIREMENTS', 

'RANGE OF ATMOSPHERIC REQUIREMENTS ',' TEMPERATURE CONTROL AND MEASUREMENT' 
'VIBRATION CONTROL AND MEASUREMENT ',' TEST MATRICES', ' 

'IMAGING REQUIREMENTS' , 'ELECTROMAGNETIC LIMITATIONS' , 'ASTRONAUT INVOLVEMENT' 
'DATA REQUIREMENTS' , 'TELEPRESENCE, TELEROBOTICS' , 'RETURN TO PREVIOUS MENU']. 


while ?menu_choice <> 'RETURN TO PREVIOUS MENU' 
then do (outline) . 


topic 'outline'. 

column = ?column + 1. 
row = ?row + l. 

window ( 'Overview and Explanation' , , white, white, 3,3,77,18). 
window ('5.0 Science Requirements Envelope' , blue, white. white 
?column, ?row, 76,17) . 
ask ('#e 

Provide a brief discussion describing the following areas:' menu choice 
?menu_option) . — ' 

if ?menu_choice = 'EXPERIMENT SAMPLE REQUIREMENTS' 
then do ('Experiment Sample Requirements'). 

if ?menu_choice = 'RANGE OF ATMOSPHERIC REQUIREMENTS' 
then do ('Range of Atmospheric Requirements'). 

if ?menu_choice = 'TEMPERATURE CONTROL AND MEASUREMENT' 
then do ('Temperature Control and Measurement'). 

if ?menu_choice = 'VIBRATION CONTROL AND MEASUREMENT' 
then do ('Vibration Control and Measurement'). 

if ?menu_choice = 'TEST MATRICES' 
then do ('Test Matrices'). 

if ?menu_choice = 'IMAGING REQUIREMENTS' 
then do ('Imaging Requirements'). 

if ?menu_choice = 'ELECTROMAGNETIC LIMITATIONS' 
then do ('Electromagnetic Limitations'). 

if ?menu_choice = 'ASTRONAUT INVOLVEMENT' 
then do ('Astronaut Involvement'). 

if ?menu_choice = 'DATA REQUIREMENTS' 
then do ('Data Requirements'). 



if ?menu_cho ice = ' TELEPRESENCE , TELEROBOTICS' 
then do ('Telepresence, Telerobotics'). 

if ?menu_cho ice = 'RETURN TO PREVIOUS MENU' 
then new_kb ( ' EOUTLINE . HKB ' ) . 

close_window () . 
close_all (). 
row = ?row - 1. 
column = ? column -1. 
end. (* Science Requirements*) 


topic 'Experiment Sample Requirements', 
row = ?row + 1. 
column = ?column + 1. 

window ('5.1 Experiment Sample Requirements' , blue, white, white, 
?column, ?row, 76, 16) . 
say ( ' #e 


Be sure to include the number of samples and the materials 
used to conduct the experiment. Then make sure each one 
is justified and/or substantiated in the documentation . 

Press #f yellow SPACE#d to continue.'). 

close_window () . 

row = ?row - 1. 
column = ? column - l. 
end. (* Experiment sample requirements*) 

topic 'Range of Atmospheric Requirements', 
row = ?row + 1. 
column = ?column + 1. 

window ('5.2 Atmospheric Requirements ' , blue , white , white , 

? column, ?row, 76, 16) . 
say ( ' #e 

Be sure to include any information related to, including 
the range of values for: 

o Pressure 
o Gas composition 
o Humidity 
o Vacuum 

Then make sure each one is justified and/or substantiated 
in the documentation. 

Press #f yellow SPACE#d to continue. '). 
close_window () . 

row = ?row - 1. 
column = ? column - 1. 



end. (* Range of Atmospheric requirements*) 

topic 'Temperature Control and Measurement'. 

row = ?row + 1. 
column = ?column + 1. 

window ('5.3 Temperature Control and Measurement' , blue, white, white, 
? column, ?row, 76, 16) . 
say ('#e 


As much accuracy as possible is required when describing 
this section and each part must be justified and/or 
substantiated in the documentation. 


Press /f yellow SPACE#d to continue.'). 

close_window () . 

row = ?row - 1. 
column = ? column - 1. 

end. (* Temperature control and measurement*) 

topic 'Vibration Control and Measurement' . 

row = ?row + 1. 
column = ?column + 1. 

window ('5.4 Vibration Control and Measurement' , blue, white, white, 
?column,?row,76, 16) . 
say ( '#e 

As much accuracy as possible is required, along with 

the frequency of measurement, when describing this section. 

Each part must be justified and/or substantiated in the 
documentation . 


Press #fyellow SPACE#d to continue.'). 

close_window () . 

row = ?row - 1. 
column = ? column - 1. 

end. (* Vibration control and measurement*) 

topic 'Test Matrices'. 

row = ?row + 1. 
column = ? column + 1. 

window ('5.5 Test Matrices' , blue, white, white, ?column,?row, 76, 
16) . 

say ( ' #e 


Include the number of tests and the required duration of 
each test when describing this section. Each requirement 
must be justified and/or substantiated in the documentation. 

Press #f yellow SPACE#d to continue.'). 

close_window ( ) . 



row = ?row - 1. 
column = ? column - 1. 
end. (* Test matrices*) 

topic 'Imaging Requirements', 
row = ?row + 1. 
column = ?column + 1. 

window ('5.6 Imaging Requirements ' , blue , white , white , 

?column, ?row, 76, 16) . 
say ( '#e 

Be sure to include any information related to: 

o Photography 
o Radiography 
o Television 
o Resolution 
o Frame rate 

Each requirement must be justified and/or substantiated in 
the documentation. 

Press #f yellow SPACE#d to continue.'). 
close_window ( ) . 

row = ?row - l. 

column = ? column - l. 

end. (* Imaging requirements*) 

topic 'Electromagnetic Limitations', 
row = ?row + 1. 
column = ? column + 1. 

window ('5.7 Electromagnetic Limitations' , blue, white, white, ?row, ?column, 
76, 16) . 
say ( ' #e 

Please list any type of electromagnetic limitations for this type 
of experiment. 


Press #f yellow SPACE#d to continue.'). 


column = ?column - 1. 

row = ?row - 1. 
close_window () . 

end. (* Electromagnetic Limitations *) 

topic 'Astronaut Involvement', 
row = ?row + 1. 
column = ?column + 1. 

window ('5.8 Astronaut Involvement ' , blue , white , white , 
?column, ?row, 76, 16) . 
say ( ' #e 

Be sure to include any information related to: 

o Extravehicular activity (EVA) 
o Activation of experiment 



Each of the requirements must be justified and/or 
substantiated in the documentation. 

Press #f yellow SPACE#d to continue.'). 

close_window () . 

row = ?row - 1. 
column = ? column - 1. 
end. (* Astronaut involvement*) 


topic 'Data Requirements', 
column = ? column + 1. 
row = ?row 4* x • 

window ('5.9 Typical Data Requirements' , blue, white, white, ?row,?column, 76,16) . 
say ( ' #e 

Please list any typical data requirements for this type of 
experiment. 


Press #f yellow SPACE#d to continue.'). 


column = ? column - 1. 

row = ?row - 1. 

close_window ( ) . 
end. (* Data Requirements *) 

topic 'Telepresence, Telerobotics', 
row = ?row + 1. 
column — ? column +1. 

window ('5.10 Telepresence , Telerobotics ' , blue , white , white , 
?column,?row,76, 16) . 
say ('#e 


Each requirement must be justified and/or substantiated in 
the documentation. 


Press #f yellow SPACE#d to continue.'). 
close_window () . 

row = ?row - 1. 
column = ? column - 1. 
end. (*5.10 Telepresence, telerobotics*) 



( *NASA_ENV . KB 
(* 

(* 


This is the activity menu to allow the 
user to select an activity to perform on 
an existing project. 


*) 

*) 

*) 


no_edit_key () . 

no_debug ( ) . 

do_gloss = 1. 

today = date ( ) . 

month = element (?today, 1) . 

day = element (?today, 2) . 

year = element (? today, 3) . 

today = concat (?month, '/' ,?day, '/' , ?year) . 
yn is [YES, NO]. 

curdir is read_line ( ' CURDIR . DAT ' ) . 

close (concat ( 'C: \GARDEN\' , ? CURDIR, ' \ BASELINE . DAT ' ) ) . 
curdir is string_replace (?curdir, ' ',",8). 
eof = number_to_char (26) . 

menu_option is ['FILL OUT DOCUMENTATION' , 'PRINT SCIENCE REQUIREMENTS ENVELOPE DO 
'DISPLAY ENVELOPE DOCUMENT' , 'CREATE AN ASCII FILE OF ENVELOPE DOCUMENT', 
'BASELINE DOCUMENT' , 'COMPARE BASELINE TO CURRENT REVISION', 

'COPY ANSWERS TO DISK' , 'RETURN TO PREVIOUS MENU' , 'RETURN TO MAIN MENU', QUIT]. 
menu_choice = ' ' . 

while ?menu_choice <> QUIT 
then do (nasamenu) . 

topic nasamenu. 

ask ( [ ' #e #s 

The project you have selected is: ' , ?curdir , '#d #n 

Please enter your choice of activities from the list. ' ] ,menu_choice, 
?menu_option) . 

if ?menu_choice = 'FILL OUT DOCUMENTATION' 
then new_kb ( 'envfmenu.hkb' ) . 

if ?menu_choice = 'RETURN TO PREVIOUS MENU' 
then new_kb ( ' EPRO JECT . HKB ' ) . 

if ?menu_choice = 'RETURN TO MAIN MENU' 
then new_kb ( ' envmmenu . CKB ' ) . 

if ?menu_choice = 'PRINT SCIENCE REQUIREMENTS ENVELOPE DOCUMENT' 
then new_kb ( ' ENVPRINT . HKB ' ) . 

if ?menu_choice = 'DISPLAY ENVELOPE DOCUMENT' 
then 

new_kb ( ' ENVDISP . HKB ' ) . 

if ?menu_choice = 'CREATE AN ASCII FILE OF ENVELOPE DOCUMENT' 
then new_kb ( ' ENVFILE . HKB ' ) . 

if ?menu_choice = 'BASELINE DOCUMENT' 
then do (baseline_rtn) . 

if ?menu_choice = 'COPY ANSWERS TO DISK' 
then do (copyfiles) . 



if ?menu_choice = 'COMPARE BASELINE TO CURRENT REVISION' 
then do (compare_rtn) . 

if ?menu_choice = QUIT 
then stop () . 

topic 'copyfiles'. 

ask ('Do you want to copy your answers to a different drive?' ,wantcopy,?yn) . 
if ?wantcopy = YES 

then drivelist is [A: , B: ,C: ,D: ,NONE] 
and 
ask 

('Please choose the drive to which you wish to copy the files: ', 
drive_destination, ?drivelist) . 

if ?wantcopy = YES and ?drive_destination <> NONE 
then 

copy_command = concat ( ' COPY C: \GARDEN\ ' , ?curdir , ' \* . DAT ' , ?DRIVE_DESTINA 
and 

say (' 

Please insert diskette now if you are copying to a floppy drive. 

Please press #fyellow SPACE#d when ready. ') 


and 

move_cursor (1,10) 
and 

dos ( ?copy_command , restore ) 
and 

say ('#e 


Answers have been moved to drive #s' ,?drive_destination, ' #n #n 


Please press #fyellow SPACE#d to exit. '). 
do (nasamenu) . 
end. (* copyfiles *) 
topic 'baseline_rtn' . 
ask ( ' #e 

At some point in the documentation process, it is necessary to 
declare that all documents are complete, and that any changes 
to be made will be treated as revisions to the baseline document. 

Do you want to baseline your answers at this time?' , baseline, ?yn) . 

curbase = ?eof. 
overwrite = YES. 
if ? baseline = YES 
then 

curbase is read_line (concat ( 'C: \GARDEN\ ' , ?CURDIR, ' \ BASELINE . DAT ' ) ) 
and 

close (concat ( 'C: \GARDEN\' ,?CURDIR, ' \BASELINE.DAT' ) ) 
and 

if ?curbase <> ?eof 



then 

ask 

('#e 

You have already baselined this experiment in the past. Do you 

want to take all revisions and overwrite your previous baseline 

to create a new baseline? overwrite, ?yn) . 

if ?curbase = ?eof and ?baseline = YES 
then 

window ( , white , red , yellow ,1,14,32,6) 
and 

say ( ' #e 

This selection will invoke 
a DOS command, which will 
cause your screen to blank 
out momentarily. Do not 

be alarmed. Press #fyellow SPACE#d now. ') 
and 

md_command = concat ( 'MD C: \ GARDEN \ ' , ?curdir , ' \ BASELINE' ) 
and 

dos ( ?md_command , restore ) 
and 

copy_command — concat 

('COPY C: \GARDEN\ ' , 7CURDIR, ' \* . DAT C: \GARDEN\ ' , ?CURDIR, ' \BASELINE\* . * ' ) 

and 

dos (?copy_command, restore) 
and 

write ( concat ('C: \GARDEN\ ' , 7CURDIR, ' \BASELINE.DAT' ) ,?today) 
and 

close_window ( ) 
and 

say ('#e 

Baseline document has been created. All changes to this 
document will be stored in the revision. A new baseline 
must be created to incorporate any revisions into the 
final document. 


Please press #fyellow SPACE#d to exit. '). 

if ?curbase <> ?eof and ?baseline = YES and ?overwrite = YES 
then 

xcopy_command = concat 

( ' XCOPY C: \GARDEN\ ' , 7CURDIR, ' \* .DAT C: \GARDEN\ ' , 7CURDIR, 

' \ BASELINE \*.* /D: ' , 7CURBASE) 

and 

window (, white, red, yellow, 1,14, 32,6) 
and 

say ('#e 

This selection will invoke 
a DOS command, which will 
cause your screen to blank 
out momentarily. Do not 

be alarmed. Press #fyellow SPACE#d now. ') 
and 

dos (?xcopy_command, restore) 
and 

new_f ile (concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \BASELINE.DAT' ) ) 



and 

write (concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \BASELINE.DAT' ) , 7 today) 

and 

close_window ( ) 
and 

say ('#e 

All revisions have been incorporated in the baseline 
document. Addition changes to this document will be 
stored in a new revision. A new baseline must be 
created to incorporate any new revisions into the 
final document. 


Please press #fyellow SPACE#d to exit. '). 


do (nasamenu) . 
end. (* baseline_rtn *) 
topic ' compare_rtn' . 

close (concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \ BASELINE . DAT ' ) ) . 

curbase is read_line (concat ( 'C: \GARDEN\ ', 7CURDIR, ' \BASELINE.DAT' ) ) 

and 

close (concat ( 'C: \GARDEN\ ' , 7CURDIR, ' \ BASELINE . DAT ' ) ) 
and 

if ?curbase = ?eof 
then 
say 
('#e 

You have not yet baselined this experiment; therefore, 
no comparison is necessary. 


Press #f yellow SPACE#d to continue') 


and 

new_kb ( ' NAS A_ENV . HKB • ) . 

compchoices = ['RUN COMPARISON PROGRAM' , 'DISPLAY COMPARISONS', 

'PRINT COMPARISONS' , 'RETURN TO PREVIOUS MENU']. 


ask ( ' #e 

Do you wish to run the comparison program to generate a new 
listing of differences between the baseline and revision, 
print or display the results of the most recent comparison, 
or exit this menu?' ,comp_ans,?comp_choices) . 

if ?Comp_ans = 'RETURN TO PREVIOUS MENU' 
then new_kb ( ' NAS A_ENV . HKB ' ) . 

if ?comp_ans = 'RUN COMPARISON PROGRAM' 
then 

do (comp_jpgm) . 

topic 'comp_pgm'. 

comp_command - concat 

( ' FC /a C: \GARDEN\ ' , ?CURDIR, ' \* .DAT C: \GARDEN\ ' , 7CURDIR, 



' \BASELINE\* . * > C:\GARDEN\',?CURDIR, '\DIFFER.DAT') . 
dos (?comp command, restore) . 

close (concat('C:\GARDEN\',?CURDIR, '\DIFFER.DAT') ) . 

say ( ' #e 

Files have been compared. Please use the display or 
print options to view the results of the comparison. 

Press #fyellow SPACE#d to continue.'). 

end. (* comp_pgm *) 

if ?comp_ans = 'DISPLAY COMPARISONS' 

th comp_file = read (concat (C: \GARDEN\ , ?CURDIR, ' \DIFFER.DAT' ) ) 
and 

say (?comp_file) . 

if ?comp_ans = 'PRINT COMPARISONS' 

th comp_file = read (concat (C: \GARDEN\ , ?CURDIR, ' \DIFFER.DAT' ) ) 
and 

print (#p, ?comp_f ile, #p) . 
do (nasamenu) . 
end. (* compare_rtn *) 
end. (* NASA_ENV *) 



(* ENVFILE . HKB is used to write all sections of the ERD to a user i 
(* specified file. , 

no_edit_key () . 
no_debug () . 

eof = number_to_char (26) . 

curdir is read_line ( 'CURDIR.DAT' ) . 

curdir is string_replace (?curdir , ' , 8 ) . 

orig_curdir = ?curdir. 

blankline = ' ' . 

overwrite = [ ] . 

yn = [YES, NO] . 

line_count = o. 

page_count = 0. 

username = ?blankline. 

column = 3. 

row = 3. 

window ( 'Create an ASCII File of the Envelope Document' 
white,blue,white,?column,?row,78,19) . ' 

read_response ( ' #e 

This routine will create an ASCII file of the Science 
Requirements Envelope Document. Please enter the complete 
file name you wish to create, including drive, file name, 
and extension. For example, #fyellow A:ENVDOC.TXT#d. If you do 
not wish to create a file, press the RETURN key without 
entering a file name. 


' , username) . 

username = string_replace(?username, ' ' , " , 20 ) . 

direct is dir (?username) . 
if ?direct <> [] and Tusername <> M 
then 

ask ('#e 

This file already exists. Do you wish to overwrite it?' , overwrite, 
•yn) . ' 

if ?username = ?blankline or ?username = ' ' or ?username = " or 
?username = [ ] or ?overwrite = NO 
then 

window (, white, red, yellow, 1, 16,27,4) 
and 

say ('#e 

No file created. 

Press SPACE to continue.') 
and 

newkb ( ' NASA_ENV . HKB ' ) . 
base_dir = [ ] . 

curbase is read_line (concat ( ' C: \GARDEN\ ' , 7CURDIR, ' \BASELINE.DAT' ) ) 
close (concat ( 'C: \GARDEN\ ', ?CURDIR, '\BASELINE.DAT')) . 
if ?curbase <> ?eof 
then 



base_choice = [ ' BASELINE ' , ' CURRENT REVISION' , 'NEITHER' ] 
and 

ask ( ' #e 


Do you wish to create a file from the baseline or 
the current revision?' ,base_dir, ?base_choice) 
and 

if ?base_dir = BASELINE 

curdir = concat (?curdir, '\BASELINE') 


curdir - string_replace (?curdir, ' ',",8) 

and 

new_f ile ( ' C : \GARDEN\CURDIR . DAT ' ) 
write ('C:\GARDEN\CURDIR.DAT' ,?curdir) . 


if ?base dir <> NEITHER 


then 

do ( ' pr int_title_page ' ) 

and . . . 

r emove_t op i c ( 'print_title_page ) 

and 

do (Print_Routine) . 


if ?base_dir = BASELINE 
then 

curdir = ?orig_curdir 

curdir = string replace (?curdir, < *8) 

and 

new_file ('C:\GARDEN\CURDIR.DAT') 

and _ _ . . 

write ('C:\GARDEN\CURDIR.DAT' , ?curdir) . 


new kb ( ' NASA_ENV . HKB ' ) . 


topic 'print_title_page' . 

no_edit_key () - , 

filler = ' 

eof = number_to_char (26) . , 

blankline = ' 

expname is read (concat (C: \GARDEN\ , 7CURDIR, '\TITLE.DAT' ) ) 

expname is string_replace (?expname, ' ' , " » 60 °) • 

expname is remove (?expname, ' ') • 
lines = list_length(?expname) . 

1 ine_count = 1 . 
title length = 0. 


window 

write 


( , white , red , yellow , 1,16,27,4) . 

( 'con: ' , 'FILE CREATION IN #nPROGRESS. . . 


')• 


while ?line_count <= ? lines 

th cur line = element (?expname, ?line_count) 
and - ^ , . . 

cur_lngth = string_length(?cur_line) 

and 


line_count = ?line_count + 1 
and 

title_length = ?title_length + ?cur_lngth + l 
and 

if ?cur_line = ' ' 
then 

expname = string_replace(?expname,?cur_line) . 
expname = concat (element (? expname, 1) , , 

element ( ? expname , 2 ) , ' - ' , 
element ( ? expname , 3 ) , • ~ • , 
element ( ?expname , 4 ) , ' - ' , 
element ( ?expname , 5 ) , • - • , 
element ( ? expname , 6 ) , • - • , 
element ( ?expname , 7 ) , ' - • , 
element (?expname, 8 ) , • , 
element ( ? expname , 9 ) , ' - ' , 
element (? expname, 10 ) , 
element (? expname, 11) , 
element (?expname, 12) , f ~ f , 
element (? expname, 13) , / , 
element (? expname, 14 ) , *~ r , 
element (?expname, 15) ) . 

title_length = ?title_length + 3. 
counter = 1. 
write_counter = 1. 
line_one = ' ' . 

while ? counter < ?title_length 
then 

char = string_copy (?expname, ?counter,l) 
and 

counter = ? counter + 1 
and 

write_counter = ?write_counter + l 
and 

if ?write_counter > 40 and ?char = ' • 
then 

linelgth = string_length(?line_one) 
and 

linelgth = 80 - ?linelgth 
and 

linelgth = ?linelgth / 2 
and 

linef iller = string_copy (?blankline,l,?linelgth) 
and 

line_one = concat (?linef iller, ?line_one, '#n' ,?char) 
and 

write_counter = l 
and 

new_expname gets ?line_one 
and 

line_one = ' ' 
else 

line_one = concat (?line_one, ?char) . 

linelgth = string_length(?line one), 
linelgth = 80 - ? linelgth. 
linelgth = ?linelgth / 2. 

linefiller = string_copy (?blankline,l,?linelgth) . 
line_one = concat (?linef iller , ?line_one, '#n' ) . 



', 600 ) 


new expname gets ?line_one. 

new"expname = string_replace(?nev_expname, 

authorfile = concat ( C : \GARDEN\ , 7CURDIR , ' \ AUTHOR . DAT ' ) • 


titlepage - ( ' #n#n#n#n#n#n#n#n*n#n*n#n#nM^ Require ments Envelope Document' 

titlepage gets ° for:'. 

titlepage gets ' 

titlepage gets ' '. 

titlepage gets ?new_expname. 

titlepage gets '#n#n'. 

pagedate — ?date. 

mo num = element (?pagedate, 1) . 

if — ?mo_num = 1 

then month = January 
else 

if ?mo_num = 2 

then month = February 

else 

if ?mo_num = 3 
then month = March 
else 

if ?mo_num = 4 
then month = April 
else 

if ?mo_num = 5 
then month = May 
else 

if ?mo_num = 6 
then month = June 
else 

if ?mo_num = 7 
then month = July 
else 

if ?mo_num = 8 
then month = August 
else 

if ?mo_num = 9 

then month = September 

else 

if ?mo_num = 10 
then month = October 
else 

if ?mo_num = 11 

then month = November 

else 

if ?mo_num = 12 

then month = December 

else 

month = ' ' • 

year — element (?pagedate, 3) . 
reportdate = concat ( ?month , ' ',?year). 


datelgth = string_length(?reportdate) . 
datelgth = 80 - ?datelgth. 

datelgth = ?datelgth / 2. , 

datefiller = string_copy (?blanklme, 1, .datelgth) . 

titlepage gets ' ' . 
titlepage gets 


9 9 


titlepage gets concat (?datef iller, ?reportdate) . 

basefile = concat ( 'C: \GARDEN\ ' , ?CURDIR, ' \ BASELINE . DAT ' ) 
baseline = read(?basefile) . ' 

if ?baseline = ?eof 
then 

baseline = 'N/A' . 


datelgth = string_length(?baseline) . 
datelgth = 80 - ?datelgth. 
datelgth = ?datelgth / 2. 

datefiller = string_copy (?blanJcline, l, ?datelgth) . 
titlepage gets ' ' . 
titlepage gets ' 

titlepage gets concat (?datef iller , ?baseline) . 


Baselined: 


! / / 
/ 




name is read_line (?authorf ile) . 
name is string_replace ( ?name , ' NAME : 
name is string replace (?name , ' ' , r ' , 8) . 

namelgth = strTng_length (?name) . 
namelgth = 80 - ?namelgth. 
namelgth = ?namelgth / 2. 

~ s "tring_copy (?blankline, 1, ?namelgth) . 
titlepage gets concat ( ' #n#n#n#n#n#n#n#n#n#n#n#n ' , ?namef iller , ?name 

organization is read_line (?authorf ile) . 

s ^ r f ng - re P lace ( ?or 9anization, 'ORGANIZATION: ' 

organization is string replace (?organization. ' ''' 8) ' 

organizationlgth = strTng_length(?organization) . 
organizationlgth = 80 - ?organizationlgth. 
organizationlgth = ?organizationlgth / 2 . 

organizationfiHer = string_copy (?blankline,l,?organizationlgth) 
titlepage gets concat (?organizationf iller , ?org4nization) ? ^ ‘ 


mcode is read_line (?authorfile) . 

mcode is string_replace ( ?mcode , 'MAIL CODE: • 

mcode is string^replace (?mcode , • ,8) . ’ 

mcodelgth = strTng_length(?mcode) . 
mcodelgth = 80 - ?mcodelgth. 
mcodelgth = ?mcodelgth / 2. 

mcodefiller = string_copy (?blankline, l, ?mcodelgth) . 
titlepage gets concat (?mcodef iller, ?mcode) . 


street is read__line (?authorf ile) . 

street is string_replace(?street, 'STREET: • ‘ 

street is string replace (? street , ' ',"8). ’ 

streetlgth = strTng_length(?street) . 
streetlgth = 80 - ?streetlgth. 
streetlgth = ?streetlgth / 2 . 

streetf iller = string_copy (?blankline, 1, ? street lgth) . 
titlepage gets concat (?streetf iller , ?street) . 

city is read_line (?authorf ile) . 

city is string_replace(?city, 'CITY, STATE. ZIP: • •• w 

city is string_replace(?city , • ,8) . ’ 

city is string replace (?city , ' 1 , ' • 8 ). 

city lgth = strlng_length(?city) . 

city lgth = 80 - ?citylgth. 

city lgth = ?citylgth / 2. 



cityfiller = string_copy (?blankline, l,?citylgth) . 
titlepage gets concat (?cityf iller,?city) . 

phone is read_line (?authorf ile) . 

phone is string_replace(?phone, 'PHONE: ' »!)• 

phone is string replace (?phone, ' ' , ' ' , 8) . 

phone lgth = strTng_length(?phone) . 

phone lgth = 80 - ?phonelgth. 

phone lgth = ?phonelgth / 2 . 

phonefiller = string_copy (?blankline, l,?phonelgth) . 

titlepage gets concat (?phonef iller , ?phone) . 

new_file (?username) . 

write (?username, ?titlepage, #p) . 

close window () . 


end. (* print_title__page *) 


topic 'Print_Routine' . 

window ( , white, red, yellow, 1, 16 , 27 , 4) . 

write ( 'con : ' , 'FILE CREATION IN j^nPROGRESS. . . ' ) • 


do (Print_ENV) . 

page_count = ?page_count + 1. 
page_line = concat ( ' 
while ?line_count < 60 
then 

env page gets ?blankline 
and - 

line_count = ?line_count + 1. 
env_page gets ?page_line. 
env_page gets '#p'. 
write (?username,?env_page) . 
close_all () . 
close window ( ) . 


' , ?page_count) . 


topic 'Print_ENV' . 

env_page gets ?blankline. 
env page gets ?blankline. 

filename = concat (C: \GARDEN\ / ?CURDIR, '\envl_l.DAT') . 
line is read line (?filename) . 
env_page gets ' 1.0 INTRODUCTION/ SUMMARY' . 

envpage gets ?blankline. 

env_page gets ' 1.1 Descripton of Experiment Type or Class'. 

env_page gets ?blankline. 
line_count = 6. 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
env_page gets ?blankline. 
line count = ?line_count + 1. 
if ?Tine_count > 56 

then do (page_advance) . 

env_page gets ' 1.2 

env_page gets ?blankline. 


Scientific Knowledge to be Gained From This Type 


line_count = ?line_count + 2. 

f ilename = concat (C: \GARDEN\ , 7CURDIR, ' \envl_2 . DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 1.3 Value of Knowledge of This Type of Experiment'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \envl_3.DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 1.4 Necessity for Space Environment to Experiment Type 

envjpage gets ? blankline. 
line_count = ?line_count + 2. 

f ilename = concat ( C : \GARDEN\ , 7CURDIR , ' \envl_4 . DAT ' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
env_page gets ?blankline. 
line^count = ?line_count + 1. 
if lTne_count > 56 
then do (page_ad vance) . 

filename = concat (C: \GARDEN\, 7CURDIR, '\env2_l.DAT') . 
line is read_line (?f ilename) . 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ?blankline. 
env_page gets ?blankline. 
env_page gets ' 2.0 BACKGROUND'. 

env_page gets ?blankline. 

gets ' 2.1 Scientific Field to which Experiment Belongs'. 

env_page gets ?blankline. 
line_count = ?line_count + 6. 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
env_page gets ?blankline. 
line_count = ?line_count + l. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 2.2 Current Application for Research in the Field'. 

env_page gets ?blankline. 
line count = ?line count + 2. 



filename = concat(C: \GARDEN\, 7CURDIR, ' \env2_l.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 2.3 Brief Historical Account of Prior Research', 

envjpage gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \env2_3.DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 2.4 Current Research'. 

env~page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env2_4 .DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 2.5 Relationship of Proposed Experiment Type to Experim 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env2_5.DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 2.6 Anticipated Advance in State of the Art'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C:\GARDEN\,?CURDIR, '\env2_6.DAT') . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if line count > 56 




then do (page_advance) . 


filename = concat (C: \ GARDEN \ , ?CURDIR, ' \env3_l.DAT' ) . 
line is read_line (?filename) . 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ?blanJcline. 
env_page gets ?blan3cline. 

env_page gets ' 3.0 JUSTIFICATION FOR CONDUCTING THIS EXPERIMENT IN SPACE' 

env_page gets ?blankline. 

env_page gets ' 3.1 Limitations of Ground-Based Testing'. 

env_page gets ?blankline. 
line_count = ?line_count + 6. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_ad vance) . 

env_page gets ' 3.2 Limitations of Drop Towers'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\, 7CURDIR, ' \env3_2.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets Tblankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 3.3 Limitations of Testing in Aircraft'. 

env_page gets ?blanJcline. 
line_count = ?line_count + 2. 

filename = concat (C : \ GARDEN \, ? CURD IR, '\env3_3.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env__page gets ' 3.4 Need for Accommodations in the Shuttle'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, '\env3_4.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 



env_page gets ' 3.5 Limitations of Mathematical Modeling'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, '\env3_5.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count >56 

then do (page_advance) . 

env_page gets ' 3.6 Limitations of Other Modeling Approaches'. 

env_page gets ?blan)cline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env3_6.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
do (page_advance) . 

filename = concat (C : \GARDEN\, 7CURDIR, '\env4_l.DAT') . 
line is read_line (?filename) . 
if ?line_count > 56 

then do (page_advance) . 
env_page gets ?blankline. 
env_page gets ?blankline. 

env_page gets ' 4.0 DESCRIPTION OF EXPERIMENT TYPES'. 

env_page gets ?blankline. 

env_j?age gets ' 4.1 General Description of Type of Experiments 

env_page gets ?blankline. 
line_count = ?line_count + 6. 
while 7 line <> ?eof 
then do (read_file) . 
close (?filename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 4.2 Types of Experiment Procedures to be Used' 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\, 7CURDIR, '\env4_2.DAT') . 
line is read_line (?filename) . 
while 7 line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
envjpage gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 4.3 Types of Measurements and RAnges of Values Required'. 



env_page gets ?blankline. 
line count = ?line_count +2. 

filename = concat (C: \GARDEN\ , 7CURDIR, '\env4_3.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_f ile) . 
close (?f ilename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if line_count > 56 
then do (page_advance) . 

filename = concat (C: \ GARDEN \ , 7CURDIR, ' \env5_l.DAT' ) . 
line is read_line (?filename) . 
if ?line_count > 56 
then do (page_advance) . 


env_page gets ?blankline. 
env page gets ?blankline. 

env^age gets ' 5.0 SCIENCE REQUIREMENTS ENVELOPE' . 

env page gets ?blankline. 


env_page gets ' . 5 * 1 

env page gets ?blankline 
line_count = ?line_count 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
env_page gets ?blankline 
line_count = ?line_count 
if ?line_count > 56 

then do (page_advance) 


Experiment Sample Requirements' 


+ 6 , 


+ 1 . 


envpage gets 

• 5.2 Atmospheric Requirements ' . 
env page gets ?blankline. 

env_page gets 

• 5.2.1 Pressure', 
env page gets ?blankline. 
line count = ?line_count + 4. 

filename = concat (C : \GARDEN\,?CURDIR, '\env5_2_l.DAT') . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

• 5.2.2 Gas Composition'. 
env_page gets ?blankline. 

line count = ?line_count + 2. 

filename = concat (C : \GARDEN\ , 7CURDIR, ' \env5_2_2 . DAT ' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 


if ?line_count > 56 

then do (page_advance) . 

env_j>age gets 
' 5.2.3 Humidity ' . 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \env5 2 3. DAT'), 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_j>age gets 
' 5.2.4 Vacuum' . 

env _page gets ? blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \ GARDEN \ , ?CURDIR, ' \env5 2 4 .DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line_count + l. 
env _page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

5.3 Temperature Control and Measurement', 
env _page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\, ?CURDIR, ' \env5 3. DAT'), 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5 * 4 Vibration Control and Measurement'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, '\env5 4. DAT'), 
line is read_line (?f ilename) . “ 

while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


env_page gets 



t 5.5 Test Matrices', 

env page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , ?CURDIR, '\env5_5.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

r 5.6 Imaging Requirements', 

env page gets ?blankline. 
env_page gets 

> 5.6.1 Photography ' . 

env_page gets ?blankline. 
line count = ?line_count + 4. 

filename = concat(C: \GARDEN\ , 7CURDIR, '\env5_6_l.DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.6.2 Radiography ' . 

env_page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C : \GARDEN\ , 7CURDIR, ' \env5_6_2 . DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.6.3 Television'. 

env_page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5_6_3 .DAT' ) 

line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.6.4 Resolution'. 



env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5_6_4 . DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
envpage gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.6.5 Frame Rate ' . 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C:\GARDEN\,?CURDIR, '\env5_6_5.DAT') 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

envjpage gets 

' 5.7 Electromagnetic Limitations', 

envjpage gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5 7. DAT'), 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
envjpage gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

envjpage gets 

' 5.8 Astronaut Involvement', 

envjpage gets ?blankline. 
envjpage gets 

' 5.8.1 Extravehicular Activity', 

env jpage gets ?blankline. 
line_count = ?line_count + 4. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5 8 l.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (Tfilename) . 
line_count = ?line_count + l. 
envj>age gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

envjpage gets 

' 5.8.2 Activation of Experiment', 

envjpage gets ?blankline. 



line count = ?line_count + 2. 

filename = concat(C:\GARDEN\,?CURDIR, '\env5_8_2.DAT') 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

> 5.9 Data Requirements ' . 

env_page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5_9.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

• 5.10 Telepresence and Telerobotics' . 
env_page gets ?blankline. 

env_page gets 

• 5.10.1 Telepresence ' . 
env_page gets ?blankline. 
line_count = ?line_count + 4. 

filename = concat (C: \GARDEN\, 7CURDIR, ' \en5_10_l.DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.10.2 Telerobotics ' . 

env_page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C: \GARDEN\, ?CURDIR, ' \en5_10_2 .DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if line_count > 56 
then do (page_advance) . 

env_page gets ?blankline. 
env_page gets ?blankline. 

env_page gets • 6.0 OTHER REQUIREMENTS • . 

env_page gets ?blankline. 


line_count = ?line_count + 4. 

filename = concat(C:\GARDEN\,?CURDIR, '\ENV6_1.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
do (page_advance) . 

end. (* Print_ENV *) 

topic / page_advance / . 

page_count = ?page_count + 1. 
page_line = concat(' 
while ?line_count < 58 
then 

env_page gets ?blankline 
and 

line_count = ?line_count + l. 
env _page gets ?page_line. 
env_page gets '#p'. 
write (?username, ?env_page) . 
env_page = [ ] . 
env_page gets ?blankline. 
env _page gets ?blankline. 
line_count = 2. 
collect () . 

end. (* page_advance *) 


' , ?page_count) . 


topic 'read_file'. 
if ?line_count > 56 

then do (page_advance) . 
line = concat ( ' ',?line). 

env _page gets ?line. 
line is read_line (?f ilen am e) . 
line_count = ?line_count + l. 
end. (* read_file *) 

end. (* Print_Routine *) 



(* ENVDISP . KB is used to display all sections of the Eevelope Documen 

no_edit_key ( ) . 

no_debug ( ) . 

choice = [] • 

env_page = [ ] • 

e of = number to_char (26) . 

curdir is read_line ('CURDIR.DAT'). ^ 

curdir is string_replace(?curdir , , /8). 

orig_curdir = ?curdir. 

blankline = ' ' • 

line_count = 0. 

curbas^is raid line (conoat ( 'C: \GARDEN\' ,?COPDIR, ' \BASELINE.DAT' )) . 
close (concat ( ' C: \GARDEN\ ' , ? CURDIR, ' \BASELINE.DAT )). 
if ?curbase <> ?eof 

th base_choice = [ 'BASELINE' , 'CURRENT REVISION' , 'NEITHER' ] 
and 

ask ('# e DQ wish tQ display documents from the baseline or 
from the current revision?' ,base_dir, .base_choice) 

and 

if ?base_dir = BASELINE 

th curdir = concat (?curdir , ' \BASELINE' ) 

axid 

curdir = string_replace (?curdir,' ',"/8) 
new_f ile ('C:\GARDEN\CURDIR.DAT') 
write ('C:\GARDEN\CURDIR.DAT' ,?curdir) 

and 

do (display_routine) . 

if ?base dir <> NEITHER 

then while ?choice <> QUIT 
then do ( display _routine) . 

new_kb ( ' NASA_ENV . HKB ' ) . 

topic 'display Routine'. 

sections = [ T 1.0 INTRODUCTION/ SUMMARY' , 

'3*0 JUSTIFICATION FOR CONDUCTING THE EXPERIMENT IN SPACE' 
'4.0 DESCRIPTION OF EXPERIMENT TYPES', 

'5.0 SCIENCE REQUIREMENTS ENVELOPE', 

'6.0 OTHER REQUIREMENTS ' , 

'QUIT' ] . 

window ('Display Science Requirements Envelope Document' 

, white, blue, white ,3,3, 78 , 19) . 
ask ( ' #e 

Which section do you want to display?' , choice, ?sections) . 


if ’choice = '1.0 INTRODUCTION /SUMMARY' 
then do ('1.0 INTRODUCTION / SUMMARY ' ) . 

if ? choice = '2.0 BACKGROUND' 
then do ('2.0 BACKGROUND 9 ) ♦ 


c-4 



if ?choice = '3.0 JUSTIFICATION FOR CONDUCTING THE EXPERIMENT IN SPACE' 
then do ('3.0 JUSTIFICATION FOR CONDUCTING THE EXPERIMENT IN SPACE'). 

if ? choice = '4.0 DESCRIPTION OF EXPERIMENT TYPES' 
then do ('4.0 DESCRIPTION OF EXPERIMENT TYPES'). 

if ? choice = '5.0 SCIENCE REQUIREMENTS ENVELOPE' 
then do ('5.0 SCIENCE REQUIREMENTS ENVELOPE'). 

if ? choice = '6.0 OTHER REQUIREMENTS' 
then do ('6.0 OTHER REQUIREMENTS ' ) . 

if ? choice = QUIT 
then 

if ?base_dir = BASELINE 
then 

curdir = ?orig_curdir 
and 

curdir = string_replace (?curdir, ' ',",8) 
and 

new_f ile ('C:\GARDEN\CURDIR.DAT') 
and 

write ('C: \GARDEN\CURDIR.DAT' ,?curdir) 
and 

new_kb ( ' nasa_env . hkb ' ) 
else 

new_kb ( ' nasa_env . hkb ' ) . 
end. (* display_ENV *) 


topic '1.0 INTRODUCTION/ SUMMARY ' . 
page_count = 0. 
env_page gets ?blankline. 
env_page gets ?blankline. 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \envl_l.dat' ) . 
line is read_line (?filename) . 
env_j?age gets ' 1.0 INTRODUCTION/ SUMMARY ' . 

env_page gets ?blankline. 

env_page gets ' 1.1 Description of Experiment Type or Class', 

envjpage gets ?blankline. 
line_count = 6. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
envjpage gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 1.2 Scientific Knowledge to be Gained From This Type 

Experimentation' . 
envjpage gets ?blankline. 
line_count = ?line_count + 3. 

filename = concat (C: \GARDEN\, 7CURDIR, ' \envl_2.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 



env page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count >56 

then do (page_advance) . 

env page gets ' 1.3 Value of Knowledge of This Type of Experiment to 

“ Scientific Field' . 

env_page gets ?blankline. 

fu!HaSe"= concat^C?\GARDEN\ 2CURDIR , ' \envl_3 . DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filenaxne) . 
env page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count >56 

then do (page_advance) . 

env page gets ' .1-4 Necessity for Space Environment to Experiment Type 

env peg© gets ?blankline. 

line count = ?line count + 2. r\*rp/\ 

filename = concat(C:\GAKDEN\,?CURDIK, '\envl_4.DAT ). 

line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_f ile) . 
close (?f ilename) . 
env page gets ?blankline. 
line_count = ?line_count + 1. 
do (page advance) . 

end. (* 1.0 INTRODUCTION/ SUMMARY *) 
topic '2.0 BACKGROUND ' • 

filename 1 *^ concat (C : \ GARDEN \ , 2CURDIR, ' \env2_l.DAT' ) . 
line is read_line (?f ilename) . 
if ?line_count > 54 

then do (page advance) . 


6 . 


env page gets ?blanlcline. 
env page gets "?blanlcline. 
env page gets ' 2.0 BACKGROUND 

env page gets ?blanlcline. 
envjpage gets ' . 2 * 1 

env page gets ?blanklme. 
line_count = ?line_count + 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 

guv page gets ?blanlcline. 

line_count = ?line_count + 
if ?line_count >56 

then do (page_advance) . 


Scientific Field to which Experiment Type Belongs 


1 . 


Current Application for Research in the Field' 


env_page gets ' 2.2 

©nv page gets ?blankline* 

filename"^ conca™C:^EN\ ! 2CURDIR, ' \env2_2 . DAT ' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 



then do (read_file) . 
close (?f ilename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 
then do (page_advance) . 


env_page gets ' 2.3 

env_page gets ? blankline. 
line_count = ?line_count + 2. 
filename = concat (C: \GARDEN\ , ?CURDIR, ' \env2 3.dat'). 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line_count + 
env_page gets ?blankline. 
if ?line_count > 56 
then do (page_advance) . 


® r i e ^ Historical Account of Prior Research in the 


1 . 


env_page gets ' 2.4 Current Research '. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env2 4.datM 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
i inecount = ?line_count + 1 . 
envjpage gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


Relationship of Proposed Experiment Type to Experi 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , ?CURDIR, '\env2 5.DATM . 
line is read__line (?fileneime) . ~ 

while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


envpage gets ’ 2.5 

env_page gets ?blankline. 


env_page 9ets E ^ perimen |^ io ^icipated Advance in State of the Art for This 

env_page gets ?blankline. 
iineoount = ?line_count + 3. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env2 6.DATM 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env_page gets ?blankline. 
do (page_advance) . 
end. (* 2.0 BACKGROUND *) 



topic '3.0 JUSTIFICATION FOR CONDUCTING THE EXPERIMENT IN SPACE'. 
page_count = 0. 

filename = concat (C : \GARDEN\ , 7CURDIR, ' \env3_l . DAT' ) . 
line is read_line (?filename) . 
if ?line_count > 54 

then do (page_advance) . 

env_page gets ?blankline. 
env_page gets ?blankline. 

env_page gets ' 3.0 JUSTIFICATION FOR CONDUCTING THE EXPERIMENT IN SPACE' 

env_page gets ?blankline. 

env_page gets ' 3.1 Limitations of Ground-Based Testing'. 

env_page gets ?blankline. 
line_count = ?line_count + 6. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 3.2 Limitations of Drop Towers'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env3_2 .DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 3.3 Limitations of Testing in Aircraft'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, '\env3_3.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 3.4 Need for Accommodations in the Shuttle'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C : \ GARDEN \,?CURDIR, '\env3_4.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 



env_page gets ' 3.5 Limitations of Mathematical Modeling'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat(C:\GARDEN\,?CURDIR, '\env3_5.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 3.6 Limitations of Other Modeling Approaches', 

envjpage gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\,?CURDIR, '\env3_6.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
envjpage gets ?blankline. 
do (page_ad vance) . 

end. (* 3.0 JUSTIFICATION FOR CONDUCTING THE EXPERIMENT IN SPACE *) 

topic '4.0 DESCRIPTION OF EXPERIMENT TYPES'. 
page_count = 0. 

filename = concat (C: \GARDEN\, 7CURDIR, '\env4_l.DAT') . 
line is read_line (?filename) . 
if ?line_count > 54 

then do (page_advance) . 

envjpage gets ?blankline. 
env_page gets ?blankline. 

env_page gets ' 4.0 DESCRIPTION OF EXPERIMENT TYPES'. 

env_page gets ?blankline. 

env_page gets ' 4.1 General Description of Type of Experiments 

envpage gets ?blankline. 
line_count = ?line_count + 6. 
while ?line <> ?eof 
then do (read_file) . 
close (Tfiiename) . 
envjpage gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 4.2 Types of Experiment Procedures to be Used' 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, '\env4_2.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line count > 56 



then do (page_advance) . 


env_page^gets^^ of Measurements and Ranges of Values Required' 
env page gets ?blankline. 

line count — ?line count +2. , . 

fileHame = concat (C : \ GARDEN \ , 7CURDIR, ' \env4_3.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env page gets ?blankline. 

do 7P a 9 e _ advance ) * 


end. (* 4.0 DESCRIPTION OF EXPERIMENT TYPES *) 


topic '5.0 Science Requirements Envelope'. 

filename 11 ^ concat (C: \GARDEN\ , 7CURDIR, ' \env5_l.DAT' ) 
line is read_line (?filename) . 
if ?line_count >56 
then do (page_advance) . 


env page gets ?blankline. 

env - page gets SCIENC e REQUIREMENTS ENVELOPE', 

env^page gets ?blankline 


env_page gets ' 5 . 1 

env_page gets ?blanlcline. 
line_count = ?line_count + 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env page gets ?blankline. 
line_count = ?line_count + 
if ?line_count > 54 

then do (page_advance) . 


General Description of Experiment Sample Requiremen 


6 . 


1 . 


• 5.2 Range of Atmospheric Requirements'. 

env page gets ?blankline. 

env page gets 

' 5.2.1 Pressure'. 

env_page gets ?blankline. 

line count = ?line count + 4. 

fileHame = concat(C:\GARDEN\,?CURDIR, '\env5_2_l.DAT') 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


env_page gets 
5.2.2 


Gas Composition'. 

env_page gets ?blankline. 
line count = ?line count + 2. 


filename - concat(C: \GARDEN\, 7CURDIR, '\env5 2 2. DAT') 
line is read_line (?f ilename) . ~ 

while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env __page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


env_page gets 
' 5.2.3 Humidity', 

envjpage gets ?blankline. 
line_count * ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, # \env5 2 3. DAT') 
line is read_line (?filename) . ~ 

while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env page gets 
' 5.2.4 Vacuum ' . 

envjpage gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5 2 4. DAT') 
line is read_line (?f ilen am e) . — — 

while ?line <> ?eof 
then do (read_f ile) . 
close (?filename) . 
line_count = ?line_count + l. 
envjpage gets ?blankline. 
if ?line_count >56 

then do (page_advance) . 


env_page gets 

5.3 Temperature Control and Measurement', 
envjpage gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5 3. DAT') 
line is read_line (?filename) . ~ 1 * 

while ?line <> ?eof 
then do (read_f ile) . 
close (?f ilename) . 
line_count = ?line_count + l. 
envjpage gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


env_page gets 

5.4 Vibration Control and Measurement', 
envjpage gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C : \GARDEN\,?CURDIR, '\env5 4. DAT'), 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 



close (?filename) . 
line count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

/ 5.5 Test Matrices'. 

env__page gets ? blankline, 
line count = ?line_count +2. 

filename = concat (C: \GARDEN\ , 7CURDIR, '\env5_5.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_f ile) . 
close (?filename) . 
line count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 54 

then do (page_advance) . 

env page gets 

/ 5.6 Imaging Requirements Envelope'. 

env_page gets ?blankline. 
env_page gets 

/ 5.6.1 Photography ' . 

env_page gets ?blankline. 
line count = ?line_count + 4. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5_6_l.DAT' ) 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line_count + 1. 
env page gets ?blankline. 
if ?line_count >56 

then do (page_advance) . 

env_page gets 

• 5.6.2 Radiography ' . 

env_page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C : \GARDEN\ , 7CURDIR, ' \env5_6_2 . DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line__count + 1. 
env page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

envjpage gets 

/ 5.6.3 Television'. 

env_page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5_6_3 .DAT' ) 
line is read_line (?f ilename) . 
while 7 line <> ?eof 
then do (read_file) . 
close (?f ilename) . 


line_count = ?line_count + l. 
env _page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.6.4 Resolution ' . 

env_page gets ?blankline. 
line_count = ?line_count + 2. 
filename = concat(C: \GARDEN\,?CURDIR, '\env5 
line is read_line (?filename) . “ 

while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.6.5 Frame Rate ' . 

env _page gets ?blankline. 
line_count * ?line_count + 2. 
filename = concat(C:\GARDEN\,?cURDIR, '\env 5 < 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_f ile) . 
close (?filename) . 
line_count = ?line__count + l. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5 - 7 Electromagnetic Limitations'. 

en V_page gets ?blankline. 
line_count = ?line_count + 2. 
filename = concat (C: \GARDEN\, 2CURDIR, '\env 5 7 
line is read_line (?filename) . — 

while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env_page gets ?blankline. 
if ?line_coxint > 54 

then do (page_ advance) . 

env_page gets 

' 5.8 Astronaut Involvement ' . 

env_page gets ?blankline. 
env_page gets 

5.8.1 Extravehicular Activity ' . 
e nv_page gets ?blankline. 
line_count = ?line_count + 4 . 
filename = concat(C: \GARDEN\ , 7CURDIR, ' \env5 8 

line is read_line (?f ilename) . 

while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line count + 1. 


6_4.DAT') . 


5. DAT') . 


.DAT') . 


l.DAT' ) . 



env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env page gets 

' “ 5.8.2 Activation of Experiment'. 

env_page gets ?blankline . 
line count = ?line_count +2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5_8_2.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

/ 5.9 Data Requirements ' . 

env_page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, '\env5_9.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count — ?line_count + 1. 
env page gets ?blankline. 
if ?line_count > 54 

then do (page_advance) . 

env page gets 

/ 5.10 Telepresence and Telerobotics', 

env page gets ?blankline. 
envjpage gets 

• 5.10.1 Telepresence', 
env page gets ?blankline. 
line count = ?line count + 4. 

filename = concat (C : \GARDEN\,?CURDIR # '\en5_10-l.DAT') 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line_count + 1. 
env_page gets ? blankline . 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

• 5.10.2 Telerobotics', 
env page gets ?blankline. 
line count = ?line count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \en5_10_2.DAT' ) 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line_count + 1. 
env page gets ?blankline. 


do (page_advance) . 

end. (* 5.0 SCIENCE REQUIREMENTS ENVELOPE *) 


topic '6.0 OTHER REQUIREMENTS ' . 
page_count = o. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env6 l.DAT'). 
line is read_line (?filename) . 
if ?line_count > 54 

then do (page_advance) . 

env_page gets ?blankline. 
env _page gets ?blankline. 

env_page gets ' 6.0 OTHER REQUIREMENTS'. 

env_page gets ?blankline. 
line_count = ?line_count + 4. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env _page gets ?blankline. 
line_count = ?line_count + l. 
do (page_advance) . 

end. (* 6.0 OTHER REQUIREMENTS *) 

topic ' page_ad vance ' . 

page_count = ?page_count + l. 

window_name = concat (? choice, ' Page: ' , ?page count), 
window ( ?vindow_name , white , blue , white ,3,3,78,19). 
say (?env_j>age) . 
env_page = [ ] . 
env _page gets ?blankline. 
env _page gets ?blankline. 
line_count = 2. 
collect () . 
close_window ( ) . 
end. (* page_advance *) 

topic / read_file / . 
if ?line_count > 58 

then do (page_advance) . 
line = concat (' ',?line). 

envpage gets ?line. 
line is read_line (?filenaune) . 
line_count = ?line_count + l. 
end. (* read_f ile *) 

end. (* display_Routine *) 



(* ENVPRINT.KB is used to print all sections of the Envelope Document. *) 

no_edit_key ( ) . 
no_debug ( ) . 

eof = number_t o_char (26) . 

curdir is read_line ( ' CURDIR.DAT ' ) . 

curdir is string_replace(?curdir , ' ' , " , 8) . 

orig_curdir = ? curdir. 

blankline = ' ' . 

choice = ' ' . 

line_count = 0. 

page_count = 0. 

base dir = ( ] • 

curbase is read_line (concat ( 'C: \GARDEN\ ' , ?CURDIR, ' \BASELINE.DAT' ) ) . 
close (concat ( ' C: \GARDEN\ ' , 7CURDIR, ' \BASELINE.DAT' ) ) . 

if ?curbase <> ?eof 
then 

base_choice = [ 'BASELINE' , 'CURRENT REVISION' , 'NEITHER' ] 
and 

ask ( ' #e 


Do you wish to print documents from the baseline or 
from the current revision?' ,base_dir,?base_choice) 


and 

if ?base_dir = BASELINE 
then 

curdir = concat (?curdir , ' \BASELINE' ) 
and 

curdir = string_replace (?curdir,' ',",8) 
and 

new_f ile ('C:\GARDEN\CURDIR.DAT') 
and 

write ('C:\GARDEN\CURDIR.DAT' ,?curdir) 
and 

do (print_sections) . 

if ?base_dir <> NEITHER 

then while ?choice <> QUIT 
then do (print_sections) . 


new_kb ( ' NASA_ENV . HKB ' ) . 

topic ' Pr int_sections ' . 
env page = [ ] . 

sections = ['1.0 INTRODUCTION/ SUMMARY ','2.0 BACKGROUND ' , 

'3.0 JUSTIFICATION FOR CONDUCTING THIS EXPERIMENT IN SPACE', 

'4.0 DESCRIPTION OF EXPERIMENT TYPES', '5.0 SCIENCE REQUIREMENTS ENVELOPE', 
'6.0 OTHER REQUIREMENTS' , 'PRINT ENTIRE DOCUMENT QUIT '] . 

window ('Print Science Requirements Envelope' , white, blue, white, 3 , 3 , 78 , 18) . 

ask ( ' #e . 

Which section do you wish to Print?' , choice, ?sections) . 

if ? choice = '1.0 INTRODUCTION/ SUMMARY' 
then do ('1.0 INTRODUCTION / SUMMARY ' ) 
and 

if ?line count > 2 



then 

do (page_advance) . 

if ? choice = '2.0 BACKGROUND' 
then do ('2.0') 
and 

if ?line_count > 2 
then 

do (page_advance) . 

if ? choice = '3.0 JUSTIFICATION FOR CONDUCTING THIS EXPERIMENT IN SPACE' 
then do ('3.0') 
and 

if ?line_count > 2 
then do (page_advance) . 

if ? choice = '4.0 DESCRIPTION OF EXPERIMENT TYPES' 
then do ('4.0') 
and 

if ?line_count > 2 
then 

do (page_advance) . 

if ?choice = '5.0 SCIENCE REQUIREMENTS ENVELOPE' 
then do ('5.0') 
and 

if ?line_count > 2 
then 

do (page_advance) . 

if ?choice = '6.0 OTHER REQUIREMENTS' 
then do ('6.0') 
and 

if ?line_count > 2 
then 

do (page_advance) . 

if ?choice = 'PRINT ENTIRE DOCUMENT' 
then 

load ( 'envtitle.hJcb' ) 
and 

do ( ' pr int_title_page ' ) 
and 

remove_topic ( ' pr int_tit lejpage ' ) 
and 

page_count = 0 
and 

window ( , white , red, yellow, 1,16,27,4) 
and 

write ( ' con : ' , ' PRINT IN PROGRESS . . . ' ) 
and 

do ('1.0 INTRODUCTION/ SUMMARY') 
and 

do ('2.0') 
and 

do ('3.0') 
and 

do ('4.0') 
and 

do ('5.0') 



and 

do ('6.0') 

and print (#p,' ',#p)« 

close_window () . 

if ?choice = 'QUIT' 
then 

if ?base_dir = BASELINE 
then 

curdir = ?orig_curdir 
and 

curdir = string_replace (?curdir,' ','', 8 ) 
and 

newf ile ( ' C: \GARDEN\CURDIR.DAT' ) 
and 

write ('C:\GARDEN\CURDIR.DAT' ,?curdir) 
and 

new_kb ( ' nasa_env . hkb ' ) 
else 

new_kb ( ' nasa_env . hkb ' ) . 
end. (* print sections *) 


topic '1.0 INTRODUCTION/ SUMMARY ' . 

window ( , white , red , yellow ,1,16,27,4) 
and 

write ( ' con : ' , ' PRINT IN PROGRESS . . . ' ) 
and 

env_page gets ?blankline. 
envjpage gets ?blankline. 

filename = concat (C: \GARDEN\ , ?CURD I R, '\envl_l.DAT') . 
line is read_line (?filename) . 
env_page gets ' 1.0 INTRODUCTION/ SUMMARY ' . 

env_page gets ?blankline. 

env_page gets ' 1.1 Descripton of Experiment Type or Class'. 

env_page gets ?blankline. 
line_count = 6. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 1.2 Scientific Knowledge to be Gained From This Type of 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , ? CURDIR, ' \envl_2.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 



env_page gets ' 1.3 Value of Knowledge of This Type of Experiment'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat(C:\GARDEN\,?CURDIR, '\envl_3.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 1.4 Necessity for Space Environment to Experiment Type 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \envl_4.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (Tfilename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 
then do (page_advance) . 
end. (* 1.0 *) 


topic '2.0'. 

filename = concat ( C : \GARDEN\ , ? CURDIR , ' \ env2_l . DAT ' ) . 
line is read_line (?filename) . 
if ?line_count > 56 

then do (page_advance) . 


window ( , white /red, yellow, 1, 16,27,4) 
and 

write ( ' con : ' , 7 PRINT IN PROGRESS . . . ' ) 
and 

env_page gets ?blankline. 
env_page gets ?blankline . 
env_page gets ' 2.0 BACKGROUND ' . 

env_page gets ?blankline. 

env_page gets ' 2.1 Scientific Field to which Experiment Belongs'. 

env_page gets ?blankline. 
line_count = ?line_count + 6. 
while ?line <> ?eof 
then do (read_file) . 
close (Tfilensune) . 
env_page gets Tblankline . 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 


env_page gets ' 2.2 Current Application for Research in the Field', 

envjpage gets ?blankline. 
line_count = ?line_count + 2. 

filename - concat(C:\GARDEN\,?CURDIR, '\env2_l.DAT') . 
line is read line (?filename) . 



while ?line <> ?eof 
then do (read_f ile) . 
close (?filename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?Tine_count > 56 

then do (page_advance) . 


env page gets ' 2.3 Brief Historical Account of 

env_page gets ?blankline. 
line count = ? line count + 2. 

filename = concat (C : \GARDEN\ , 7CURDIR, ' \env2_3 . DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_f ile) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


Prior Research' . 


env page gets ' 2.4 Current Research'. 

env~page gets ?blankline. 
line count = ?line_count +2. 

filename = concat (C : \GARDEN\ , 7CURDIR, ' \env2_4 . DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


env__page gets ' 2 . 5 

env page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env2_5.DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


Relationship of Proposed Experiment Type to Experin 


1 . 


env page gets ' 2.6 Anticipated Advance in State of the Art'. 

env~page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env2_6.DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line_count + 1. 
env page gets ?blankline. 
if ?line_count > 56 
then do (page_advance) . 
end. (* 2.0 *) 



topic '3.0'. 

filename = concat (C: \GARDEN\ , ?CURDIR, '\env3_l.DAT') . 
line is read_line (?filename) . 
if ?line_count > 56 

then do (page_advance) . 

window ( , white , red , yellow ,1,16,27,4) 
and 

write ( 'con: ' , 'PRINT IN PROGRESS. . . ' ) 
and 

env_page gets ?blankline. 
env_page gets ?blankline. 

env_page gets ' 3.0 JUSTIFICATION FOR CONDUCTING THIS EXPERIMENT IN SPACE'. 

env_page gets ?blankline. 

env_page gets ' 3.1 Limitations of Ground-Based Testing'. 

env_page gets ?blankline. 
line_count = ?line_count + 6. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env__page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 3.2 Limitations of Drop Towers', 

env _page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat(C: \GARDEN\,?CURDIR, ' \env3 2. DAT'), 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 3.3 Limitations of Testing in Aircraft'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat(C:\GARDEN\,?CURDIR, '\env3 3. DAT'), 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 3.4 Need for Accommodations in the Shuttle'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename - concat (C: \GARDEN\ , 7CURDIR, ' \env3_4 .DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 



line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 3.5 Limitations of Mathematical Modeling'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, '\env3_5.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_f ile) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets ' 3.6 Limitations of Other Modeling Approaches'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env3_6.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 
then 

do (page_advance) . 
end. (* 3.0 *) 

topic '4.0'. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env4_l.DAT' ) . 
line is read_line (?filename) . 
if ?line_count > 56 
then 

do (page_advance) . 

window ( , white , red , yellow ,1,16,27,4) 
and 

write ( 'con: ' , 'PRINT IN PROGRESS. . . ' ) 
and 

env_page gets ?blankline. 
env__page gets ?blankline. 

env_page gets ' 4.0 DESCRIPTION OF EXPERIMENT TYPES ' . 

env_page gets ?blankline. 

env_page gets ' 4.1 General Description of Type of Experiments 

env_page gets ?blankline. 
line_count = ?line_count + 6. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env_page gets 7blanJcline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env page gets ' 4.2 Types of Experiment Procedures to be Used' 



env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C : \GARDEN\ , ?CURDIR, ' \env4_2 . DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 4.3 Types of Measurements and Ranges of Values Required' 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\,?CURDIR, '\env4_3.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
envpage gets ?blankline. 
if ?line_count > 56 
then do (page_advance) . 
end. (* 4.0 *) 

topic '5.0'. 

filename = concat (C : \GARDEN\ , ?CURDIR, ' \env5_l . DAT' ) . 
line is read_line (?filename) . 
if ?line_count > 56 
then do (page_advance) . 

window ( , white, red, yellow, 1, 16,27,4) 
and 

write ( ' con: ' , ' PRINT IN PROGRESS . . . ' ) 
and 

env_page gets ?blankline. 
env_j>age gets ?blankline. 

env_page gets ' 5.0 SCIENCE REQUIREMENTS ENVELOPE'. 

env_page gets ?blankline. 

env_page gets ' 5.1 Experiment Sample Requirements ' . 

env_page gets ?blankline. 
line_count - ?line_count + 6. 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
env_page gets ?blankline. 
line_count = ?line_count + 1. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.2 Atmospheric Requirements'. 

env_page gets ?blankline. 
env_page gets 
' 5.2.1 Pressure'. 

env_page gets ?blankline. 
line_count = ?line_count + 4. 

filename * concat (C: \GARDEN\ , 7CURDIR, ' \env5_2_l.DAT' ) . 



line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_f ile) . 
close (Tfilename) . 
line count = ?line_count + 1 . 
env page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

/ 5.2.2 Gas Composition'. 

env_page gets ?blankline. 
line count = ?line_count + 2 . 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5_2_2 .DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1 . 
env page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 
' 5.2.3 Humidity', 

envjpage gets ?blankline. 
line count = ?line_count + 2 . 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5_2_3.DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line_count + 1 . 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 
' 5.2.4 Vacuum'. 

env_page gets ?blankline. 
line count = ?line_count + 2 . 

filename = concat (C: \GARDEN\ , 7CURDIR, '\env5_2_4.DAT') 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1 . 
env page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

envpage gets 

/ 5.3 Temperature Control and Measurement . 

env page gets ?blankline. 
line count = ?line_count + 2 . 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5_3.DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 


line_count = ?line_count + 1. 
envjpage gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.4 Vibration Control and Measurement'. 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5 4. DAT'), 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env __page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.5 Test Matrices', 

env _page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \ GARDEN \,? CURD IR, '\env5 5. DAT'), 
line is read_line (?filename) . ~ 

while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env _j)age gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.6 Imaging Requirements ' . 

env_page gets ?blankline. 
env_page gets 

' 5.6.1 Photography ' . 

env _page gets ?blankline. 
line_count = ?line_count + 4. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \env5 6 l.DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + l. 
env_page gets ?blan3cline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.6.2 Radiography ' . 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C : \GARDEN\, ?CURDIR, '\env5 6 2. DAT') 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_covint = ?line count + 1. 



env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

• 5.6.3 Television', 
env page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C : \ GARDEN \ , 7CURDIR, ' \env5_6_3 . DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

• 5.6.4 Resolution'. 
env_page gets Tblankline. 
line count = ?line_count + 2. 

filename = concat (C: \GARDEN\,?CURDIR, ' \env5_6_4.DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env__page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

• 5.6.5 Frame Rate ' . 
env_page gets ?blankline. 
line count = ?line_count +2. 

filename = concat (C : \ GARDEN \ , 7CURDIR, ' \env5_6_5 . DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

• 5.7 Electromagnetic Limitations ' . 
env_page gets ?blankline. 

line count = ?line_count + 2. 

filename = concat ( C : \ GARDEN \ , ? CURDIR , ' \ env5_7 . DAT ' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?f ilename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 


env_page gets 

' 5.8 Astronaut Involvement'. 

env_page gets ?blankline. 
env_page gets 

' 5.8.1 Extravehicular Activity'. 

env_page gets ?blanJcline. 
line_count = ?line_count + 4. 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \env5_8_l.DAT' ) 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.8.2 Activation of Experiment', 

envjpage gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C : \GARDEN\ , 7CURDIR, '\env5_8_2.DAT') 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (Tfilename) . 
line_count = ?line_count + l. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.9 Data Requirements ' . 

env_page gets ?blankline. 
line_count = ?line_count + 2. 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \env5 9. DAT'), 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line__count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 

then do (page_advance) . 

env_page gets 

' 5.10 Telepresence and Telerobotics', 

env _page gets ?blankline. 
env_page gets 

' 5.10.1 Telepresence'. 

env_page gets ?blankline. 
line_count = ?line_count + 4. 

filename = concat (C: \GARDEN\ , ?CURDIR, ' \en5_lO_l.DAT' ) . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line count > 56 



then do (page_advance) . 
env_page gets 

• 5.10.2 Telerobotics'. 

env_page gets ?blankline. 
line count = ?line_count + 2. 

filename = concat (C:\GARDEN\,?CURDIR, '\en5_10_2.DAT') . 
line is read_line (?filename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
line_count = ?line_count + 1. 
env_page gets ?blankline. 
if ?line_count > 56 
then do (page_advance) . 
end. (* 5.0 *) 

topic '6.0'. 

window ( , white, red, yellow, 1,16,27,4) 
and 

write ( ' con : ' , ' PRINT IN PROGRESS . . . ' ) 
and 

env_page gets ?blankline. 
env_page gets ?blankline. 

env_page gets ' 6.0 OTHER REQUIREMENTS'. 

env_page gets ?blankline. 
line count = ?line_count + 4. 

filename = concat (C: \GARDEN\ , 7CURDIR, ' \ENV6_1.DAT' ) . 
line is read_line (?f ilename) . 
while ?line <> ?eof 
then do (read_file) . 
close (?filename) . 
envjpage gets ?blankline. 
line_count = ?line_count + 1. 
do (page_ad vance) . 
end. (* 6.0 *) 

topic ' page_advance ' . 

page_count = ?page_count + 1. 
page_line = concat (' 
while ?line_count < 58 
then 

env_page gets ?blankline 
and 

line_count = ?line_count + 1. 
if ?choice = 'PRINT ENTIRE DOCUMENT' 
then 

env_page gets ?page_line. 
print (#p,?env_page) . 
env_page = [ ] . 
env_page gets ?blankline. 
env_page gets ?blankline. 
line_count = 2. 
collect ( ) . 

end. (* page_advance *) 


topic 'read_file'. 
if ?line_count > 56 

then do (page_advance) . 



' , ?line) . 


line = concat(' 
env_page gets ?line. 
line is read_line (?filename) . 
line_count = ?line_count + 1. 
end. (* read_file *) 

end. (* Print_Routine *) 



(* ENVTITLE . KB prints the Title Page for the Science Requirements *) 
(* Envelope Document. *) 


no_edit_key () . 
no_debug () . 

topic 'print_title_page' . 
no_edit_key ( ) . 
filler = ' 

eof = number_to_char (26) . 

blankline = ' ' • 

expname is r ead ( concat ( C : \GARDEN\ , 7CURDIR, ' \TITLE.DAT' ) ) . 

expname is s tring_rep lace (? expname, ' ' , ' ' , 600) . 

expname is remove (? expname, ") . 

lines = list_length(?expname) . 

line_count = 1. 

title_length = 0. 

window (, white, red, yellow, 1,16,27,4) . 
write ( 'con: ' , 'REPORT BEING PRINTED. . . ' ) . 

while ?line_count <= ?lines 
then 

cur_line = element (?expname, ?line_count) 
and 

cur_lngth = string_length(?cur_line) 
and 

line_count = ?line_count + 1 
and 

title_length = ?title_length + ?cur_lngth + 1 
and 

if ?cur_line = ' ' 
then 

expname = string_replace(?expname, ?cur_line) . 
expname = concat ( element ( ?expname , 1 ) , ' - ' , 

element ( ?expname , 2 ) , ' ~ ' , 
element (? expname, 3) , '-' , 
element (? expname, 4) , 
element ( ?expname , 5 ) , ' - ' , 
element ( ?expname , 6 ) , ' - ' , 
element (? expname, 7) , '-' , 
element ( ?expname , 8 ) , ' - ' , 
element ( ?expname , 9 ) , ' - ' , 
element ( ?expname , 10 ) , ' ~ ' , 
element (? expname, 11) , '-' , 
element ( ?expname , 12 ) , ' ~ ' , 
element ( ?expname , 13 ) , ' - ' , 
element ( ?expname , 14 ) , ' ~ ' , 
element (?expname, 15) ) . 

title_length = ?title_length + 3. 
counter = l. 
write_counter = 1. 
line_one = ' ' . 

while ?counter < ?title_length 
then 

char = string_copy(?expname,?counter,l) 
and 



f t 


counter = ? counter + 1 
and 

write_counter = ?write_counter + 1 
and 

if ?write_counter > 40 and ?char = 
then 

linelgth = string_length(?line_one) 
and 

linelgth = 80 - ?linelgth 
and 

linelgth = ? linelgth / 2 
and 

linefiller = string_copy (?blankline,l,?linelgth) 
and 

line_one = concat (? linefiller, ?line_one, '#n' ,?char) 
and 

write_counter = 1 
and 

new_expname gets ?line_one 
and 

line_one = ' ' 
else 

line_one = concat (?line_one, ?char) . 

linelgth = string_length(?line_one) . 
linelgth = 80 - ? linelgth. 
linelgth = ?linelgth / 2. 

linefiller = string_copy (?blankline, 1, ? linelgth) . 
line_one = concat (?linefiller,?line_one, '#n ' ) . 

new_expname gets ?line_one. 

new_expname = string_replace(?new_expname, , 600) . 
authorfile = concat (C: \GARDEN\ , 7CURDIR, ’ \AOTHOR.DAT' ) . 
titlepage = ( ^n^n^n^n^n^^^n^^^^^' ) . 

titlepage gets ' Science Requirements Envelope Document' 

titlepage gets ' for:'. 

titlepage gets ' ' . 

titlepage gets ?new_expname. 

titlepage gets '#n#n'. 

pagedate = ?date. 

mo_num = element (?pagedate, 1) . 

if ?mo_num = 1 

then month = January 
else 

if ?mo_num = 2 

then month = February 

else 

if ?mo_num = 3 
then month = March 
else 

if ?mo_num = 4 
then month = April 
else 

if ?mo_num = 5 
then month = May 
else 

if ?mo_num = 6 
then month = June 



else 

if ?mo_num = 7 
then month = July 
else 

if ?mo_num = 8 
then month = August 
else 

if ?mo_num = 9 

then month = September 

else 

if ?mo_num = 10 
then month = October 
else 

if ?mo_num = 11 

then month = November 

else 

if ?mo_num = 12 

then month = December 

else 

month = ' ' . 

year = element (?pagedate, 3) . 
reportdate = concat (?month, ' / ,?year). 

datelgth = string_length(?reportdate) . 
datelgth = 80 - ?datelgth. 
datelgth = ?datelgth / 2 . 

datef iller = string_copy (?blankline, 1, ?datelgth) . 
titlepage gets • ' . 
titlepage gets ' ' . 

titlepage gets concat (?datef iller, ?reportdate) . 

basef ile = concat ( 'C: \GARDEN\ ' , ?CURDIR, ' \ BASELINE . DAT ' ) . 
baseline = read (?basef ile) . 
if ?baseline = ?eof 
then 

baseline = 'N/A' . 


datelgth = string_length (?baseline) . 
datelgth = 80 - ?datelgth. 
datelgth = ?datelgth / 2. 

datef iller = string_copy (?blankline,l,?datelgth) 
titlepage gets ' ' . 
titlepage gets ' 

titlepage gets concat (?datef iller , ?baseline) . 


Baselined: 


/ 


name is read_line (?authorf ile) . 

name is s tr ing_rep lace (? name, 'NAME: ' ' t 1) • 

name is string replace (?name, ' ','',8). 

namelgth = strTng_length(?name) . 

namelgth = 80 - ?namelgth. 

namelgth = ?namelgth / 2. 

namef iller = string_copy (?blankline, 1, ?namelgth) . 

titlepage gets concat ( ' #n#n#n#n#n#n#n#n#n#n#n#n ' , ?namef iller,? name ) 
organization is read_line (?authorf ile) . 

organization is string_replace (?organization, 'ORGANIZATION: 
organization is string_replace (?organization, ' ','',8). 

organizationlgth = string_length(?organization) . 
organizationlgth = 80 — ?organizationlgth. 
organizationlgth = ?organizationlgth / 2. 


/ / 
/ 


organizationf iller = string_copy (?blankline, l, ?organizationlgth) . 
titlepage gets concat (?organizationf iller , ?organization) . 

mcode is read_line (?authorf ile) . 
mcode is string_replace(?mcode, 'MAIL CODE: 
mcode is string replace (?mcode, ' ',",8). 

mcodelgth = strTng_length(?mcode) . 
mcodelgth = 80 - ?mcodelgth. 
mcodelgth = ?mcodelgth / 2. 

mcodef iller = string_copy (?blankline, 1, ?mcodelgth) . 
titlepage gets concat (?mcodef iller, ?mcode) . 

street is read_line (?authorf ile) . 

street is string_replace (? street, 'STREET: ' , " , 1) . 

street is string replace (?street, ' ',",8). 

street lgth = strTng_length (? street ) . 

street lgth = 80 - ? street lgth. 

streetlgth = ?streetlgth / 2. 

streetf iller = string_copy (?blankline, 1, ?streetlgth) . 
titlepage gets concat (Tstreetf iller, ?street) . 

city is read_line (?authorf ile) . 

city is string_replace(?city, 'CITY, STATE, ZIP: ',", 1 ). 

city is string_replace(?city, ' ',' ',8). 

city is string replace (?city, ' ',' ',8). 

citylgth = strlng_length(?city) . 

city lgth = 80 - ?citylgth. 

citylgth = ?citylgth / 2. 

cityfiller = string_copy (?blankline, l, ?citylgth) . 
titlepage gets concat (?cityf iller, ?city) . 

phone is read_line (?authorf ile) . 

phone is str ing_replace ( ?phone , ' PHONE : ' , " , 1 ) . 

phone is string^replace(?phone, ' ',",8). 

phone lgth = strTng_length(?phone) . 

phone lgth = 80 - ?phonelgth. 

phonelgth = ?phonelgth / 2. 

phonef iller = string_copy (?blankline, 1, ?phonelgth) . 
titlepage gets concat (?phonef iller, ?phone) . 

print (#p,?titlepage,#p) . 
close_window () . 
end. (* print_title__page *) 



( * ENVFMENU . KB 
(* 

(* 


This is the menu provided to the user to 
determine what he/ she is to do on a 
pro j ect . 


*) 

*) 

*) 


no_edit_key ( ) . 
no_debug ( ) . 
fdaction = ' ' . 

curdir is read line ( 'CURDIR.DAT' ) . 

curdir is string_replace (?curdir,' ',",8). 

while ?fdaction <> 'Exit System' 
then do (filldoc) . 

topic 'filldoc'. 

fdchoices = ['Enter Project Initialization Information', 

'Complete Science Requirements Envelope Document ' , 
'Mark Answers in Envelope as "Not Applicable”', 

' Return to Previous Menu ' , 

'Return to Main Menu', 

'Exit System']. 

window (, white, red, yellow, 5, 5, 75, 16) . 
set number of values (fdaction,!). 


Please select the activity you wish to perform on #n 
the' ,?curdir, '#dproject .'], fdaction, ? fdchoices) . 


close_window () . 

if ?fdaction = 'Enter Project Initialization Information' 
then new_kb ( ' einit ia 1 . hkb ' ) . 

if ?fdaction = 'Complete Science Requirements Envelope Document' 
then new_kb ( ' f i 1 lenv . hkb ' ) . 

if ? fdaction = 'Mark Answers in Envelope as ”Not Applicable”' 
then new_kb ( ' envelim . hkb ' ) . 

if ? fdaction = 'Return to Main Menu' 
then new_kb ( ' ENVMMENU . ckb ' ) . 

if ? fdaction = 'Return to Previous Menu' 
then new_kb ( 'nasa_env.hkb' ) . 

if ? fdaction = 'Exit System' 
then exit () . 



(*EINITIAL.KB This program is used to allow the user *) 

(* to enter standard project initialization *) 

(* information, i.e. name, address, title, etc. *) 

no_edit_key () . 
no_debug ( ) . 

curdir is read_line ('CURDIR.DAT'). 
curdir = string_replace (?curdir , 7 7 , 7 7 , 8) . 

eof = number_to_char (26) . 
yn is [YES, NO] . 
chgwant = ' 7 . 

do (personal_info) . 
new_kb ( 7 envf menu . hkb 7 ) . 

topic 7 persona l_inf o' . 

blankline = 7 . 7 . 
close_window () . 

oldtext is read (concat (C: \GARDEN\ , 7CURDIR, 7 \AUTHOR.DAT 7 ) ) . 
if ?oldtext = ?eof 

then do (new_personal) 
else 

chgwant = 7 7 

and 

while ?chgwant <> QUIT 
then do (edit_personal) . 

(* = ====== = = == == = ==== get new personal information ======================*) 

topic 7 new_personal 7 . 

WRITE ( 7 con: 7 , 7 #eln the window below, please provide some general information 
about yourself and your experiment. ' ) 

window (, white, red, yellow, 5, 5, 75, 16) . 

r ead_response ( 7 #e 

#f yellow Please enter your first and last names, i.e. Dr. John Doe.#d 

#n 7 ,name,? 
blankline) . 

name = concat ('NAME: 7 ,?name). 

personal gets ?name. 

read_response ( 7 #e 

#f yellow Please enter the name of your organization. #d 

#n 7 , organization , 
?blankline) . 

organization = concat ('ORGANIZATION: 7 , ?organization) . 

personal gets ?organization. 

read_response ( 7 #e 

/fyellow Please enter the mail code, P.O Box, room number, or other needed 
address information of your organization. #d 

#n 7 ,mail_code, ?blankline) . 

mail_code = concat ('MAIL CODE: 7 ,?mail_code) . 

personal gets ?mail_code. 



rea 2fy“l!w S ple^ enter the street address of your organisation ,#d 


street — concat (' STREET : 
personal gets ?street. 


' , ? street) . 


read response ('#e 

#fyellow Please enter the city. 


#d 


state, and zip code of your organization. 

#n' ,city_st_ r zip, 
?blankllne) . 


city_st_zip = concat ('CITY, 
city_st_zip = string_replace 
personal gets city_st_zip. 


STATE , ZIP: ' , ? c ity_st_z ip ) . 
(?city_st_zip, ' '/8)« 


read response ('#e 

#f yellow Please enter your phone number. ra 

phone = concat ('PHONE: ',?phone). 

personal gets ?phone. 


#n' , phone, 
?blankline) . 


say ( ' #e 

Please enter the title of your experiment. 


Dro -e the #fvellow RETURN KEY#d to enter the editor, 

#?yIllowESC#d to leave the editor, and #fyellow RETURN#d to confirm save. ) 


edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \TITLE.DAT' ) , yellow, black, red, 9 ,11,70,] 


author_info is [ ?name , #n , ?organizat ion , #n , ?mail_code , #n , ?street , #n , 
■’citv st zip, #n, ?phone, #n] . 

Aew file" (concat (C: \GARDEN\ , ?CURDIR, ' \AUTHOR.DAT' ) ) . 

S?ite concat C: \GARDEN\ , 7CURDIR, ' \ AUTHOR . DAT ' ) , ?author_info, #n) 

Sise concat (C: \GARDEN\ , ?CURDIR, ' \AUTHOR.DAT' ) ) . 


if ?chgwant <> QUIT 
then 

3lS)C 

( [?author_info, '#n #fyellow 

The information listed has been written to a file. 

Do you wish to change any of these entries. J» 

change_again, ?yn, 60 , 16) 

and 

if ?change_again = YES 

th oldtext is read (concat (C: \GARDEN\,?CURDIR, ' \AUTHOR.DAT' ) ) 
and 

change_again = NO 
and 

chgwant = ' ' 

and 

while ?chgwant <> QUIT 
then 

do (edit_personal) . 


close window ( ) . 


WRITE ('con:','#e '). 

end. (* new_personal *) 

(* =============== get corrected personal information =============*) 

topic 'edit_personal' . 

Chang e_inf O is [NAME, ORGANIZATION, 'MAIL CODE ' , STREET , ' CITY STATE ZIP' 

PHONE , TITLE , QUIT ] . ' 

ask ('Which entry in the below list do you wish to change? ', chgwant 
?change_info) . 

if ?chgwant = NAME 
then 

old_name = element (?oldtext, 1) 
and 

old_value = string_replace (?old_name, 'NAME: ' " 1) 

and ' ' ' 

read_response ( [ ' #e 

#f yellow Your original entry for name was#s', ?old_value, '.#d #s #n#n 
Please enter the corrected name in its entirety. #n #o' ] ,new_name, ?old_value) 


if ?chgwant = NAME 
then 

new_name = concat ('NAME: ' , ?new name) 

and - 1 

oldtext is replace ( ? oldtext , ? old_name , ?new_name ) . 


if ?chgwant = ORGANIZATION 
then 

old_org = element (?oldt ext, 2) 
and 

°l<3_ v alue = string_replace (?old org, 'ORGANIZATION: ' " 1) 

and ' ' 

read_response ( [ ' #e 

#f yellow Your original entry for organization was#s #n', ?old value 
'.#d #s #n#n - ' 

Please enter the corrected organization in its entirety. #n' ] ,new_org, ?old_vali 

if ?chgwant = ORGANIZATION 
then 

new_org = concat ('ORGANIZATION: ',?new org) 

and — 

oldtext is replace (?oldtext, ?old_org, ?new org). 

if ?chgwant = 'MAIL CODE' 
then 

old_mc = element (?oldtext, 3) 
and 

old_value = string_replace (?old_mc, 'MAIL CODE: ' " l) 

and ' ' 

read_response ( [ ' #e 

ft yellow Your original entry for mail code was#s #n' , ? 
old_value, '.#d fs fnfn 

Please enter the corrected mail code in its entirety. #n' ] , new_mc, ?old_value) . 



if ?chgwant = 'MAIL CODE' 
then 

new me = concat ('MAIL CODE: 
cind” 

oldtext is replace ( ?oldtext , ?old_mc , ?new_mc) . 


',?new me) 


/ / / 
9 


, 1 ) 


if Tchgwant = STREET 
then 

old street = element (?oldtext, 4) 

old value = string_replace (?old_street, 'STREET: 
and 

read response ( [ ' #e _ 

#fyellow Your original entry for street was#s #n , . 

Pleas^ente^th^corrected street address in its entirety .#n' ] ,new_street, 
?old_value) . 


if ?chgwant — STREET 
then 

new street = concat ( ' STREET : 

an d~ 

oldtext is replace (?oldtext, ?old_street, ?new_street) . 


' , ?new_street) 


if ?chgwant = 'CITY STATE ZIP' 
then 

old city = element (?oldt ext, 5) 

oid_value = string_replace (?old_city, 'CITY, STATE, ZIP: ',",1) 

readjresponse (['#e #fyellow Your original entry for city, state and zip was#s 

Please V enter the corrected city, state, and zip address in its entirety. #n' ] , 
new_city , ?old_value) . 


if ?chgwant = 'CITY STATE ZIP' 

new^city = concat ('CITY, STATE, ZIP: ',?new_city) 
new_city = string_replace (?new_city, ' ',' ',8) 

oldtext is replace (?oldtext, ?old_city, ?new_city) . 


9 9 


,D 


if ?chgwant = PHONE 
then 

old_phone = element ( ?oldtext , 6 ) 

old value = string_replace (?old_phone, 'PHONE: 

read response (['#e ft yellow Your original entry for phone was#s #n', ? 
old value, '.#d #s #n#n 

Please enter the corrected phone number in its entirety. #n ], 
new_phone , ? o ld_va lue ) . 


if ?chgwant = PHONE 

new^phone = concat ('PHONE: ' , ?new_phone) 

oldtext is replace ( ?oldtext , ?old_phone , ?new_phone) . 


if ?chgwant = 'TITLE' 
then 
say ('#e 

Please enter the corrected title of your experiment. 

Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave the editor, and #f yellow RETURN#d to confirm save.' 
and 

edit_f ile (concat (C : \GARDEN\ , 7CURDIR, ' \TITLE.DAT' ) , yellow, black, red, 5,9,70 


if ?chgwant = QUIT 
then 

new_f ile (concat (C: \GARDEN\,?CURDIR, '\AUTHOR.DAT') ) 

and 

write (concat (C: \GARDEN\ , ?CURDIR, ' \AUTHOR.DAT' ) , ?oldtext, #n) 

and 

close (concat (C: \GARDEN\ , 7CURDIR, ' \AUTHOR.DAT ' ) ) . 

if ?chgwant = QUIT 
then 
say 

( [?oldtext, '#f yellow The information listed has been written to a file. 

Please press #flightgreen SPACE#d #fyellow to continue. 

'])• 


end. (* edit_personal *) 


=*) 


end. (* personal_info *) 

(* ========—=—==== end personal information 



*) 

*) 

*) 


(*FILLENV.KB This program is used to allow the user 

(* to navigate and complete all pertinent 

(* sections of the Science Requirements Envelope Document. 

no_edit_key ( ) . 
no_debug ( ) . 
do (nasasys) . 

topic nasasys. 

column = 3. 
row = 3. 
ckount = [ ] . 

curdir is read_line ('CURDIR.DAT'). 
curdir = string_replace(?curdir, ' ' , ' ' ,8) . 

yn is [YES, NO], 
chgwant = ' ' . 

tried = 0. 
type_change = ' ' . 
change_type = ' ' • 


ask 


and 


Have you already begun to fill out the Science Requirements 
Envelope Document in a previous session?' , begun, ?yn) 

if ?begun = NO 
then 

new_one = ' ' 
and 

do (fillENV) 
and 

new_kb ( ' ENVFMENU . hkb ' ) 

else 

type_change is ['CHANGE ONE ITEM' , 'CHANGE AND CONTINUE', 

' COMPLETE UNANSWERED TOPICS ' , QUIT ] 
and 


while ?change_type <> QUIT 
then ask ( ' 

Do you wish to change only one item, resume at a point 
and continue sequentially through the remainder of the 
Envelope Document, or complete all topics previously 
unanswered? ' , change_type, ?type_change) 
and 

if ? change_type = 'CHANGE ONE ITEM' 
then 

WRITE ('con:','#e ') 

and 

window (, white, red, yellow, 1, 16, 27,4) 
and 

WRITE ('con:', 

'One moment please. . . 

') 

and 

do (ENV_start) 
else 

if ? change_type = 'COMPLETE UNANSWERED TOPICS' 



then 

WRITE ( ' con : ' , ' #e ') 
and 

window ( , white , red , yellow ,1,15,32,5) 
and 

do (ENV_complete) 
else 

if ?change_type = 'CHANGE AND CONTINUE' 
then 

WRITE ( 'con: ' , '#e ') 

and 

window (, white, red, yellow, 1, 16,27,4) 
and 

WRITE ('con:', 

'One moment please. . . 

') 

and 

resume = 1 
and 

choice = ' ' 
and 

do (ENV_continue) 
and 

new_kb ( ' envf menu . hkb ' ) 
else 

new_kb ( ' envf menu . hkb ' ) . 

if ?change_type = QUIT 

then new kb ( ' envf menu . hkb ' ) . 


topic 'ENVstart'. 
resume = 1. 
choice = ' ' . 
while ?choice <> Quit 
then do (ENV_begin) . 
close_window () . 

WRITE ( 'con: ' , '#e '). 

reset (ENV_begin) . 
collect () . 
end. (* ENV_start *) 


(* ********************* BEGIN FILLING OUT ENVELOPE *********************** *) 
topic 'fillENV' . 

if ?new_one = ' ' 

then load ( ' envquest . hkb ' ) 

and fs gets children (fillENV) 

and fs is remove (?fs, 'related answer') 

and stopENV = 'N' 

and new_one = 'X' 

and x = 1. 


y = (element (?fs, ?x) ) . 

if ?y <> ' ' and ?stopENV <> 'Y' 
then do (?y) . 
x = ?x + 1. 
if ?x = 8 



or ?x = 16 
or ?x = 24 
or ?x = 32 

then collect () . 

WRITE ('con:','#e ')• 

continuex = NO. 
ask ( ' #e 

Do you wish to continue with the next question?' , continuex, ?yn) . 

if ?continuex = NO 
then 

stopENV = 'Y' . 


if ?y = last(?fs) 
then stopENV = ' Y ' . 

if ? stopENV <> 'Y' 
then do (fillENV) . 

end. (* fillENV *) 

(* *********************************************************************** *) 

topic ' ENV_begin ' . 
if ?resume = 1 

then load ( ' envquest . hkb ' ) . 
close_window ( ) . 

if ?resume = 1 

then begin is ' Quit ' . 
if ?resume = 1 

then begin gets children (ENV_beg in) . 
if ?resume = 1 

then begin gets 'Quit' 
and 

begin is remove (?begin, 'related answer') 
and 

choice = ' ' . 

while ?choice <> Quit 
then 

window ('Change One Item' , blue, white, white, ?column, ? row, ) 
and 

ask ('Which subtopic do you wish to change? ', choice , ?begin) 
and 

close_window ( ) 
and 

if ?choice <> 'Quit' 
then do (?choice) 

and 

resume = 2 
and 

close_window () . 
if ?choice = 'Quit' 
then 

close_window ( ) 
and 



WRITE ( ' con : ' , ' #e ' ) 

and 

window ( , white, red, yellow, 1, 16, 27, 4) 
and 

WRITE ('con:', 

'A slight delay will occur 
while the next segment of 
this application is loaded. 

Please stand by. ') and 

stop_at = where (?begin,Quit,2) and 
kounter = 1 and 

stop_at = remove (?stop_at, 1) and 
while ?kounter < ?stop_at 
then 

eraser = element (? begin, ?kounter) and 
remove_topic (?eraser) and 
kounter = ? kounter + 1. 

end. (* ENV_begin *) 

(* ********************* RESUME FILLING OUT ENVELOPE ********************** *) 

topic ' ENV_cont inue ' . 
choice = ' ' . 

if Presume = 1 

then load ( ' envquest . hkb ' ) . 
close_window () . 

window ('Change and Continue' , blue, white, white, ? column, Prow) . 

if Presume = 1 
then 

continue is children (ENV_continue) . 

if Presume = l 
then 

continue gets 'Quit' 
and 

continue is remove (Pcontinue, 'related answer'), 
ask ( ' 

With which subtopic do you wish to resume your activity? ' , 
choice, Pcontinue) . 


if Pchoice <> 'Quit' 
then 

cont_where = where (Pcontinue, Pchoice) and 
ckount = 1 and 
while Pckount < ?cont_where 
then 

rem_top = element (Pcontinue, Pckount) 
and 

remove_topic (?rem_top) 
and 

ckount = Pckount + 1. 


collect () . 

while Pchoice <> 'Quit' 



then 

choice = element (? continue, ?ckount) 
and 

if ?choice <> ' ' and ?choice <> 'Quit' 
then 

do (?choice) 
and 

ckount = ?ckount + 1 
and 

remove_topic (?choice) 
and 

continuey = NO 
and 

ask ('#e 

Do you wish to continue with the next question?' , continuey, ?yn) 
and 

if ?continuey = NO 
then 

choice = 'Quit'. 

if ?ckount = 8 
or ?ckount = 16 
or ?ckount =24 
or ?ckount = 32 
then collect () . 
resume = 2 . 
close_window () . 

WRITE ('con: ' , '#e ') . 

end. (* ENV_continue *) 

( * *********************************************************************** *J 

topic 'ENV_complete' . 
say ('#e 

This selection will invoke 
a DOS command, which will 
cause your screen to blank 
out momentarily. Do not 

be alarmed. Press #f yellow SPACE#d now. '). 
close (concat (C: \GARDEN\ , ?curdir , ' \ ELI STING. OUT' ) ) . 
dos (esearch, restore) . 
eof = number_to_char (26) . 

WRITE ('con:', 

' #eOne moment please . . . 

')• 

searchtext is read_line (concat ( C : \GARDEN\ , ?CURDIR, ' \ELISTING . OUT ' ) ) . 
if ?searchtext = ?eof 
then 

close_window ( ) 
and 

column = ?column + 1 
and 

row = ?row + 1 
and 

window (, white, red, yellow, 10,10,60,8) 

and 

say 



('#e 


All required sections of the Envelope Document 
have been addressed. Please use the CHANGE ONE 
ITEM option to choose individual items to edit. 

Please press the #f yellow SPACE#d key to continue.' ) 
and 

column = ? column - 1 
and 

row = ?row - 1 
and 

bypass_unload = Y 
and 

close_window ( ) 
else 

load ( ' ENVQUEST . HKB ' ) 
and 

sear chi ist is read (concat (C: \GARDEN\,?curdir, ' \ELISTING.OUT' ) ) 
and 

close (concat (C: \GARDEN\ , ?curdir , ' \ELISTING.OUT' ) ) 
and 

searchlist gets 'Quit' 
and 

chgwant — ' ' 

and 

while ?chgwant <> Quit 
then 

do (complete_ENV) . 

if ?bypass_unload <> Y 
then 

window ( , white, red, yellow, 1,16,27,4) 
and 

WRITE ('con:', 

'A slight delay will occur 
while the remainder of the 
application is loaded. 

Please stand by. ') 

and 

stop_at = where (?searchlist,Quit, 2) 
and 

kounter = 1 
and 

stop_at = remove ( ? stop_at , 1 ) 
and 

while ?kounter < ?stop_at 
then 

eraser = element (?searchlist, ?kounter) 
and 

remove_topic (? eraser) 
and 

kounter = ?kounter + 1. 
close window () . 


(* ***************************************************************** *) 
topic 'complete_ENV' . 



bypass_unload = N. 

window W (^Complete Unanswered Questions' , blue, white, white, ?column, ?row) . 

complete is 'Quit', 
complete gets ?searchlist. 

agV / t 0 

These subtopics have not yet been addressed. Please 
choose the one you wish to complete, or choose Quit 
to exit this screen. ' ,chgwant,?complete) . 
if ?chgwant <> Quit 
then 

do (?chgwant) . % % 

close (concat (C: \GARDEN\,?curdir, ' \ ELI STING. OUT )). 

if ?chgwant <> Quit 


then 

dos (esearch, restore). , , , 

close (concat (C: \GAEDEN\,?curdir, ' \ELISTXNG.OOT ) ) . 

searchtext is read_line (concat (C: \GAEDEK\ , ?curdir, \ ELI STING. OUT )). 
if ?searchtext = ?eof 


then 

close_window ( ) 
and 

window ( , white , red , yellow ,10,10,60,8) 
and 

say ( ' #e 

required sections of the Envelope Document 
have now been addressed. Please use the CHANGE 
ONE ITEM option to choose individual items to edit. ) 

and 

close_window ( ) 
and 

chgwant = 'Quit' 


else 

sear chi ist is read 

(concat (C:\GARDEN\,?curdir, ' \ ELI STING. OUT 
and 

searchlist gets 'Quit', 
close window () . 


) 


end. (* complete_ENV *) 
end. (* ENV_complete *) 

( * ***************************************************************** *> 

topic mark (find_string) . 
column = ? column + 1. 

text is read ( ' nasaterm . dat ' , concat ('//',? f ind_str ing ) , ' / end ' ) . 
window (?f ind_string, blue, white, white, ?column,?row, 72 , ) . 
say (?text) . 
column = ? column - 1 . 
row = ?row — 1 . 
close_window () . 
end. (* mark *) 


end. (* nasasys *) 


(♦ENVELIM.KB This program allows the user to eliminate 

(* questions within the ENV by selecting 

(* topics from a list. Each selected topic's associated 

(* file is filled with a "Not Applicable" entry. 

no_edit_key ( ) . 
no_debug ( ) . 
column = 3. 
row = 3. 

eof = number_to_char(26) . 

curdir is read_line ('CURDIR.DAT'). 

curdir = string_replace(?curdir, ' ' , " 8) . 

yn is [YES, NO]. 

na = 'Not Applicable'. 

file = [] . 

do (nasasys) . 

new_kb ( ' envf menu . hkb ' ) . 


topic nasasys. 

elim_choices = [ ] . 

WRITE ( ' con : ' , ' #e ' ) 
and 

window (, white, red, yellow, 1, 16,27,4) 
and 

WRITE ( ' con : ' , 

'One moment please... 

do (ENV_begin) . 

if ?elim_choices = QUIT 

then new_kb ( ' envf meun . hkb ' ) . 


(* ********************************************************** #Jk * 5t#jt#lk#A#AA 

topic 'ENV_begin' . 

load ( ' ENVguest . hkb ' ) . 
r emo ve_t op i c ('Imaging Requirements'). 
remove_topic ('Atmospheric Requirements'). 

ENVtopics gets children(ENV_begin) . 

ENV_topics gets 'Quit'. 

ENV_topics is remove (?ENV_topics, 'related answer'). 
close_window () . 
end. (* ENV_begin *) 


window ('Select Topics' , blue, white, white, ?column, ?row, ) 
ask ( '#e * 9 ! 

Which topics do you wish to answer as "Not Applicable"? 

Press F4 for #mInstructions#m. ' ,elim_choices,?ENV_topics) . 
topic ' Instructions ' . 

Wi Sh!?e, < ?ro?Sj?lro2?,!lf. Marki " 9 Questions as Not Applicable '.blue, white 



say ( ' #e 


Please choose the topics to mark as ''Not Applicable'' by 
one of the below two methods. 


Mouse Users: Please use the RIGHT side mouse button and 

click on each topic to be selected. When the list is 
complete, click the LEFT side mouse button. 


Non-mouse users: Please use the arrow keys to move to the 

topic to be selected, then use the INSERT key to select it. 
To move from one page to another, use the Page Up/Page Down 
keys. When the list is complete, press the RETURN key. 


Press #f yellow SPACE#d to continue.'). 

close_window () . 
end. (* Instructions *) 


close_window () . 
if ?elim_choices <> 'Quit' 

then do (?eliminate_questions) . 

(* ***************************************************************** * 

topic mark (f ind_string) . 
column = ? column + 1. 

text is”rIad W ('naiaterm.dat',concat('//',?find_string),'/end') . 

window (?find_string, blue, white, white, ?column,?row, 72, ) . 

say (?text) . 
column = ? column - 1. 
row = ?row - 1. 
close_window () . 
end. (* mark *) 


end. (* nasasys *) 


topic 'eliminate_questions' . 

do (write_message) . 
topic 'write_message' . 

WRITE ('con:','#e ') 

and 

window ( , white , red, yellow ,1,16,27,4) 
and 

WRITE ('con:', 

'Answers being written. . . 

')• 

end. (* writejmessage *) 

if one_of (? el im_choices, 'Description of Experiment Type or Class') 

file = (concat (C: \GARDEN\,?CURDIR, '\ENV1_1.DAT') ) 
and 

empty _check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 


write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' /e 

An answer already exists for: 

Description of Experiment Type or Class 

This answer was retained. Please edit that question 
if necessary. 

Press ffyellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Scientific Knowledge to be Gained') 
then 

file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV1_2.DAT') ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ('#e 

An answer already exists for: 

Scientific Knowledge to be Gained 

This answer was retained. Please edit that question 
if necessary . 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Value of Knowledge to Scientific Field') 
then 

file = (concat (C: \ GARDEN \ , ?CURDIR, ' \ENV1_3.DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 



say ( ' #e 


An answer already exists for: 

Value of Knowledge to Scientific Field 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (? el im_choices, 'Necessity for Space Environment') 
th©n 

file = (concat (C: \GARDEN\ , ?CURDIR, ' \ENV1_4.DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Necessity for Space Environment 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Description of Scientific Field') 

th file = (concat (C: \GARDEN\ , ?CURDIR, ' \ENV2_1.DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 


An answer already exists for: 


Description of Scientific Field 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Current Applications for Research') 
then 

file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV2_2.DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Current Applications for Research 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Account of Prior Research') 
then 

file = (concat (C: \GARDEN\ , ?CURDIR, ' \ENV2_3.DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Account of Prior Research 

This answer was retained. Please edit that question 
if necessary. 



Press #fyellow SPACE#d to continue.') 


and 

do (write_message) . 
close (?file) . 


if one_of (?elim_choices, 'Current Research') 

th file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV2_4.DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 


Current Research 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (writejmessage) . 
close (?file) . 

if one of (?elim_choices, 'Relationship to Scientific Field') 

th f ile = (concat (C: \GARDEN\ , ?CURDIR/ ' \ENV2_5.DAT' ) ) 
and 

empty _check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Relationship to Scientific Field 

This answer was retained. Please edit that question 
if necessary. 

Press #fyellow SPACE#d to continue.') 



and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Anticipated Advance') 
then 

file = (concat (C: \GARDEN\,?CURDIR, '\ENV2_6.DAT') ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check * ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ('#e 

An answer already exists for: 

Anticipated Advance 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (writejnessage) . 
close (?file) . 

if one_of (?elim_choices, 'Limitations of Ground-Based Testing') 
then 

file = (concat (C: \GARDEN\ , ?CURDIR, ' \ENV3_1.DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Limitations of Ground-Based Testing 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 



if one_of (?elim_choices, 'Limitations of Drop Towers') 
then 

file = (concat (C: \GARDEN\, 7CURDIR, ' \ENV3_2.DAT') ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( '#e 

An answer already exists for: 

Limitations of Drop Towers 

This answer was retained. Please edit that question 
if necessary. 

Press #fyellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Limitations of Testing in Aircraft') 
then 

file = (concat (C: \GARDEN\ , ?CURDIR, ' \ENV3_3.DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Limitations of Testing in Aircraft 

This answer was retained. Please edit that question 
if necessary. 

Press #fyellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Need for Acomodations in the Shuttle') 
then 

file = (concat (C: \GARDEN\ , ?CURDIR, ' \ENV3_4.DAT' ) ) 
and 



empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Need for Acomodations in the Shuttle 

This answer was retained. Please edit that question 
if necessary. 

Press #fyellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Limitations of Mathematical Modeling') 
then 

file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV3_5.DAT' ) ) 
and 

empty_check * read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_f ile (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( '#e 

An answer already exists for: 

Limitations of Mathematical Modeling 

This answer was retained. Please edit that question 
if necessary. 

Press #fyellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices # 'Limitations of Other Modeling Approaches') 
then 

file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV3_6.DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 



new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Limitations of Other Modeling Approaches 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 


if one_of (?elim_choices, 'Description of Type of Experiment') 

then 

file = (concat (C: \GARDEN\ , ?CURDIR, ' \ENV4_1.DAT' ) ) 

and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Description of Type of Experiment 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Experiment Procedures to be Used') 

then . 

file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV4_2.DAT' ) ) 

and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 


else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Experiment Procedures to be Used 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, ' ' ) 
then 

file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV4_3 .DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ('#e 

An answer already exists for: 

Measurements and Range of Values Required 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Experiment Sample Requirements') 
then 

file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5 l.DAT' ) ) 
and ~ 

empty_check = readline (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ('#e 



An answer already exists for: 


Experiment Sample Requirements 

This answer was retained. Please edit that question 
if necessary. 

Press #fyellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?f ile) . 

if one of (?elim_choices, 'Atmospheric Requirements (Pressure)') 

file = (concat (C: \GARDEN\,?CURDIR, '\ENV5_2_1.DAT') ) 
and 

empty_check = read_line (?file) 
and 

if ? empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Atmospheric Requirements (Pressure) 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one of (?elim_choices, 'Atmospheric Requirements (Gas Composition)') 

th file = (concat (C: \GARDEN\ , ?CURDIR, ' \ENV5_2_2.DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Atmospheric Requirements (Gas Composition) 


This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Atmospheric Requirements (Humidity)') 
then 

file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_2_3 .DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ('#e 

An answer already exists for: 

Atmospheric Requirements (Humidity) 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 
and ' 

do (write_message) . 
close (?file) . 

^ (?elim_choices / 'Atmospheric Requirements (Vacuum)') 

then ' 

file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5 2 4. DAT')) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_f ile (?file) 
and 

write (?f ile, ?na) 
else 

close_window ( ) 
and 

say ('#e 

An answer already exists for: 

Atmospheric Requirements (Vacuum) 

This answer was retained. Please edit that question 
if necessary. 



Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Temperature Control and Measurement') 

th f ile = (concat ( C : \GARDEN\ , 7CURDIR, ' \EKV5_3.DAT' ) ) 

alld . _ _ . , . 
empty_check = read_line (?file) 

and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Temperature Control and Measurement 

This answer was retained. Please edit that question 
if necessary. 

Press j^f yellow SPACE^d to continue. ) 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Vibration Control and Measurement') 

th f ile = (concat (C: \GARDEN\,?CURDIR, '\ENV5_4.DAT' ) ) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 


Vibration Control and Measurement 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE^d to continue. ) 

and 

do (write_message) . 
close (?file) . 



if one_of (?elim choices, 'Test Matrices') 
then 

file = (concat (C: \GARDEN\ , ?CURDIR, ' \ENV5 5. DAT')) 
and — 7 7 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_f ile (?file) 
and 

write (?f ile, ?na) 
else 

close_window ( ) 
and 

say ('#e 

An answer already exists for: 

Test Matrices 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 
and 7 

do (write_message) . 
close (?file) . 

(? e ii- m _ c hoices , 'Imaging Requirements (Photography) 

file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5 6 l.DAT' ) ) 

empty_check = read line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file, ?na) 
else 

close_window ( ) 
and 

say ( '#e 

An answer already exists for: 

Imaging Requirements (Photography) 

This answer was retained. Please edit that question 
if necessary. 

Press #fyellow SPACE#d to continue.') 
and 7 

do (write_message) . 
close (?file) . 

(?elim_choices, 'Imaging Requirements (Radiography)' 
file = (concat (C: \GARDEN\ , ?CURDIR, ' \ENV5_6_2.DAT' ) ) 



empty_check = read_line (?file) 
and 

if ? empty _check = ?eof 
then 

new_f ile (?file) 
and 

write (?f ile, ?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Imaging Requirements (Radiography) 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Imaging Requirements (Television)') 

th f ile = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_6_3 .DAT' ) ) 

and . ,. r . n x 

empty _check — read_line ( . file) 

and 

if ? emp ty_check — ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Imaging Requirements (Television) 

This answer was retained. Please edit that question 
if necessary . 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?f ile) . 

if one_of (?elim_choices, 'Imaging Requirements (Resolution)') 

th file = (concat ( C : \GARDEN\ , ?CURDIR , ' \ENV5_6_4 . DAT ' ) ) 

and , ... . 

empty check = read_line (.file) 

and 

if ?empty_check = ?eof 


then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window ( ) 
and 

say ('#e 

An answer already exists for: 

Imaging Requirements (Resolution) 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write__message) . 
close (?file) . 

if one_of (?elim_choices, 'Imaging Requirements (Frame Rate)') 
then 

file = (concat (C:\GARDEN . --RDIR, ' \ENV5 6 5. DAT')) 
and 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?f ile, ?na) 
else 

close_window ( ) 
and 

say ('#e 

An answer already exists for: 

Imaging Requirements ( Frame Rate) 

This answer was retained. Please edit that question 
if necessary. 

Press #fyellow SPA, i to continue.') 

and 

do (write_message) . 
close (?file) . 

if one_of (?elim_choices, 'Electromagnetic Limitations') 
then 

file = (concat (C: \GARDEN\ , ?CURDIR, ' \ENV5 7. DAT')) 
and ~ 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_f ile (?file) 
and 

write (?f ile, ?na) 



else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Electromagnetic Limitations 

This answer was retained. Please edit that question 
if necessary * 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?f ile) . 

if one_of ( ?elim_choices , 'Astronaut Involvement (Extravehicular Activity)') 

th file = (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_8_1.DAT' ) ) 

dnd , . . a 

empty _check = read_line (?file) 

and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file/?na) 
else 

close_window ( ) 
and 

say ( ' #e 

An answer already exists for: 

Astronaut Involvement (Extravehicular Activity) 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (write_message) . 
close (?f ile) . 

if one_of (?elim_choices, 'Astronaut Involvement (Aotivation of Experiment)') 

th f ile - (concat (C: \GARDEN\ , 7CUEDIR, ' \env5_8_2 .DAT' ) ) 

and , 

empty chsck = read_line ( . f iIb) 

and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window () 
and 

say ( ' #e 


An answer already exists for: 

Astronaut Involvement (Activation of Experiment) 
This answer was retained. Please edit that question 


Press /fyellow SPACE#d to continue.') 
and ' 

do (write_message) . 
close (?f ile) . 

if one_of (?elim_choices, 'Data Requirements') 
then ' 

and 6 = (COnCat ( C; \GARDEN\, ? CURDIR,' N ENV5_9.DAT')) 

empty_check = read_line (?file) 
and 

if ? empty_check = ?eof 
then 

new_f ile (?file) 
and 

write (?file, ?na) 
else 

close_window ( ) 
and 

say ('#e 


An answer already exists for: 


Data Requirements 


This answer was retained, 
if necessary. 


Please edit that question 


Press #fyellow SPACE#d to continue.') 
and 7 

do (write message) . 
close (?f ile) . 

if one_of (?elim_choices / 'Telepresence' ) 
then ' 

file = (concat (C: \GARDEN\ , 7CURDIR, ' \EN5 10 l.DAT' ) ) 
and “ ' ' 

empty_check = read_line (?file) 
and 

if ?empty_check = ?eof 
then 

new_f ile (?file) 
and 

write (?file, ?na) 
else 

close_window ( ) 
and 

say ('#e 


An answer already exists for: 


Telepresence 



This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (writejmessage) . 
close (?file) . 

if one_of (?elim_choices, 'Telerobotics' ) 

th file = (concat (C: \GARDEN\,?CDRDIR, ' \EH5_10_2.DAT' ) ) 

stnci , « » . . 

empty _check = read_line (.fxle) 

and 

if ?empty_chec)c = ?eof 
then 

new_file (?file) 
and 

write (?f ile, ?na) 
else 

close_window ( ) 
and 

say ('#e 

An answer already exists for: 

Telerobotics 

This answer was retained. Please edit that question 
if necessary. 

Press #f yellow SPACE#d to continue.') 

and 

do (writejmessage) . 
close (?f ile) . 

if one_of (?elim_choices, 'Other Requirements') 

th f ile = (concat (C: \GARDEN\,?CURDIR, '\ENV6_1.DAT') ) 

and \ 

empty check = read line (.file) 

and 

if ?empty_check = ?eof 
then 

new_file (?file) 
and 

write (?file,?na) 
else 

close_window () 

and 

say ( ' #e 

An answer already exists for: 

Other Requirements 

retained. Please edit that question 


This answer was 
if necessary. 


Press #f yellow SPACE#d to continue.') 
and ' 

do (write_message) . 
close (?file) . 

end. (* eliminate_questions *) 



(* Envquest.kb *) 

(* These are the questions to be asked, and the files where the answers 
are to be stored, for the completion of the Science Requirements 
Envelope Document . * ) 

no_edit_key ( ) . 
no_debug () . 

topic 'Description of experiment type or class'. 

window ('Description of Experiment Type or Class (Question 1 of 39) ', blue, whit 

say ( ' #e 

Please enter a narrative description of the type or class 
of the #mexperiment#m. This topic is also addressed under 
the headings "Experiment Procedures to be Used" and "General 
Description of Type of Experiments". 

Press the #f yellow RETURN KEY#d to enter the editor, 

#fyellow ESC#d to leave editor, and #fyellow RETURN#d to confirm save.') 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV1_1.DAT' ), yellow, black, red, 5 , 10, 70, 
close window ( ) . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \ENV1_1.DAT' )) . 

end. (* Description of experiment *) 


topic 'Scientific Knowledge to be Gained'. 

window ('Scientific Knowledge to be Gained (Question 2 of 39)', 
blue, white, white, 2 , 2 , 70, 6) . 

say ('#e . 

Please enter the scientific knowledge to be gained through 
this experiment. This topic is also addressed under the 
heading "Anticipated Advance in State of the Art". 

Press the #f yellow RETURN KEY#d to enter the editor, 

#fyellow ESC#d to leave editor, and #fyellow RETURN#d to confirm save.') 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV1_2.DAT' ) , yellow, black, red, 5 , 9 , 70 , 1 
close window () . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \ENV1_2 .DAT' ) ) . 

end. (* Scientific Knowledge to be Gained *) 

topic 'Value of Knowledge to Scientific Field'. 

window ('Value of Knowledge to Scientific Field (Question 3 of 39) ', blue, white 

say ( ' 

Please enter a brief narrative describing the value of 
knowlege of this type of experimentation to scientific field. 

Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #f yellow RETURN#d to confirm save.'). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, '\ENV1_3.DAT') , yellow, black, red, 5 , 9 , 70 , 1 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \ENV1_3 .DAT' ) ) . 

end. (* Value of Knowledge to Scientific Field *) 


topic 'Necessity for Space Environment' . 


window ('Necessity for Space Environment to Experiment (Question 4 of 39)' 

, blue , white , white , 2 , 

2,70,6). 

say (' 

Please enter a narrative justifying the need for a 
space environment. 

Press the #f yellow RETURN KEY#d to enter the editor, 

#fyellow ESC#d to leave editor, and #fyellow RETURN#d to confirm save.' 

edit_f ile (concat (C: \GARDEN\ , ?CURDIR, ' \ENVl_4.DAT' ) , yellow, black, red, 5 , 9 , 70 , 
close_window () . ' 

close (concat (C: \GARDEN\,?CURDIR, '\ENV1_4.DAT') ) . 

end. (* Justification of the Need for Space Environment *) 

topic 'Description of Scientific Field'. 

window ('Description of Scientific Field (Question 5 of 39) ', blue, white, white, 

say ( ' 

Please enter a description of the scientific field 
to which the experiment belongs. 

Press the #fyellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #fyellow RETURN#d to confirm save.') 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV2_1.DAT' ) , yellow, black, red, 5, 9 , 70. 1 
close_window () . 

close (concat (C: \GARDEN\ , ?CURDIR, ' \ENV2_1.DAT' ) ) . 

end. (* Description of Scientific Field *) 

topic 'Current Applications for Research'. 

window ('Current Applications for Research (Question 6 of 39) ', blue, white, whit 

say ( ' 

Please enter a narrative of the current applications 
for research in the field. 

Press the #f yellow RETURN KEY#d to enter the editor, 

#fyellow ESC#d to leave editor, and #fyellow RETURN #d to confirm save. 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV2_2 .DAT' ) , yellow, black, red, 5,9,70,1 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \ENV2_2 .DAT' ) ) . 

end. (* Current Applications for Research *) 

topic 'Account of Prior Research'. 

window ('Account of Prior Research (Question 7 of 39) ', blue, white, white, 2 , 2 , 70 
say (' 

Please enter a brief historical account of the 
prior research in the field. 

Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #fyellow RETURN#d to confirm save.') 

edit_file (concat (C: \GARDEN\ , ?CURDIR, ' \ENV2_3.DAT' ) , yellow, black, red, 5, 9, 70, 1 
close_window () . 

Close (concat (C: \GARDEN\ , ?CURDIR, ' \ENV2 3. DAT')). 

end. (* Account of Prior Research *) 



topic 'Current Research'. , , 7n 

window ('Current Research (Question 8 of 39 ) ', blue, white, white, 2 , 2 , 70, 6) . 


say 


Please enter a brief account of the current 
research in the field. 


Press the #fyellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and ffyellow RETURN#d to confirm save.') 


edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV2_4.DAT' ) , yellow, black, red, 5 ,9,70,1 

close window (). . 

close” (concat (C: \GARDEN\ , 7CURDIR, '\ENV2_4.DAT') ) . 

end. (* Current Research *) 


tonic 'Relationship to Scientific Field'. 

window ('Relationship to Scientific Field (Question 9 of 39) ', blue, white, white 


say (' 


Please enter an account of the relationship of 
proposed experiment to the scientific field. 


Press the #fyellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #f yellow RETURN#d to confirm save. 


e dit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV2_5.DAT' ) , yellow, black, red, 5 , 9 , 70, 
close window (). 

close” (concat (C: \GARDEN\ , 7CURDIR, ' \ENV2_5.DAT' ) ) . 

end. (* Relationship to Scientific Field *) 


topic 'Anticipated Advance'. ... . .. , , 

window ('Anticipated Advance (Question 10 of 39 ) ', blue, white, white, 2, 2, 70,8) . 

relatedf ile = '\ENV1_2.DAT'. . 

relatedtopic = 'Scientific Knowledge to be Gained . 
filename = '\ENV2_6.DAT'. 


S3.V ( / 

In a #mr elated answer #m you were asked to describe the 
"Scientific Knowledge to be Gained^. 

Please elaborate on that answer to give a brief account of 
the anticipated advance in state of the art. 


Press the #fyellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #fyellow RETURN#d to confirm save 


edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV2_6.DAT' ) , yellow, black, red, 5 , 12 , 70 

close window (). , 

close” (concat (C: \ GARDEN \ , 7CURDIR, ' \ENV2_6.DAT' ) ) . 


topic 'Scientific Knowledge to be Gained'. - _ n ... 

window ('Scientific Knowledge to be Gained' , blue, white, white, 2, 2,70, 6) . 


say ( 9 . 

Please enter the scientific knowledge to be gained 
through this experiment. 


Press the /f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #fyellow RETURN#d to confirm save.' 

edit_file (concat (C: \GARDEN\ , 7CURDIR, ' \ENV1_2 .DAT' ) , yellow, black, red, 5,9,70, 
close_window ( ) . 9 ' 

close (concat (C: \GARDEN\ , 7CURDIR, ' \ENV1 2 .DAT' ) ) . 

end. (* Scientific Knowledge to be Gained *) 
end. (* Anticipated Advance *) 


topic 'Limitations of Ground-Based Testing'. 

window ('Limitations of Ground-Based Testing (Question 11 of 39) ', blue, white, w 

say (' 

Please enter the limitations of ground-based testing. 

Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #fyellow RETURN#d to confirm save.' 

edit_file (concat (C: \GARDEN\ , 7CURDIR, ' \ENV3_1.DAT') , yellow, black , red , 5,9,70,1 
ciose^wmaow () • 9 9 9 

close (concat (C: \GARDEN\ , 7CURDIR, ' \ENV3_1.DAT' ) ) . 

end. (* Limitations of Ground-Based Testing *) 

topic 'Limitations of Drop Towers'. 

window ('Limitations of Drop Towers (Question 12 of 39) ', blue, white, white, 2, 2, 
say (' 

Please enter the limitations of drop towers. 


Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC/d to leave editor, and #f yellow RETURN#d to confirm save.'). 

Sloii f windoS°0 at < C! \ GARDEN \' 7clIRDIR - '\ENV3_2.DAT') / yellow, black , red, 5,9,70,1 

close - (concat (C: \GARDEN\ , ?CURDIR, ' \ENV3 2. DAT') ) . 
end. (* Limitations of Drop Towers *) - 


topic 'Limitations of Testing in Aircraft'. 

window ('Limitations of Testing in Aircraft (Question 13 of 39) ', blue, white, wh 

say ( ' 

Please enter the limitations of testing in aircraft. 


Press the #f yellow RETURN KEY#d to enter the editor, 

#fyellow ESC#d to leave editor, and #fyellow RETURN/d to confirm save.' 

c?os5 f windoS°0 at (C: ' GAfiDEN '' ?CUEDIR ’'\ ENV3 - 3 - D ^ T '). yellow, black, red, 5, 9, 70,1 

close - (concat (C: \GARDEN\,?CURDIR, ' \ENV3 3. DAT')), 
end. (* Limitations of Testing in Aircraft *) 


topic 'Need for accommodations in the Shuttle'. 

window ('Need for Accommodations in the Shuttle (Question 14 of 39) ', blue, whit 

say (' 

Please enter the need for accommodations in the Shuttle. 


Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #fyellow RETURN#d to confirm save 



edit file (concat (C: \GARDEN\ , 7CURDIR, ' \ENV3_4 .DAT' ) ,yellow,black,red, 5, 9 , 70, 1 

close window ( ) . m , . . 

close" (concat (C: \GARDEN\ / 7CURDIR, ' \ENV3_4.DAT') ) . 
end. (* Need for accommodations in the Shuttle *) 


topic 'Limitations of Mathematical Modeling'. ..„ a 

window ('Limitations of Mathematical Modeling (Question 15 of 39) , blue, white, 

Say Please enter the limitations of mathematical modeling. 


Press the #f yellow RETURN KEY#d to enter the editor, 
and #f yellow ESC#d to leave editor.'). 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV3_5 . DAT' ) , yellow, black, red, 5 ,9,70,1 
close window () . 

close" (concat (C: \GARDEN\,?CURDIR, ' \ENV3_5.DAT' )) . 
end. (* Limitations of Mathematical Modeling *) 


topic 'Limitations of Other Modeling Approaches', 
window ('Limitations of Other Modeling Approaches 


(Question 16 of 39)', blue, wh 


Say piease enter the limitations of other modeling approaches 



edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV3_6 . DAT' ) , yellow, black, red, 5 ,9,70, 
close window (). 

close" (concat (C: \GARDEN\,?CURDIR, ' \ENV3_6.DAT' ) ) . 

end. (* Limi tat ions_o f _0ther_Mode 1 ing_Appr oaches *) 


^window^^Descr iption^of e, rype E of Experiment (Question 17 o£ 39)- , blue, white, whi 
relatedf ile = '\ENV1_1.DAT'. 

relatedtopic = 'Description of Experiment Type or Class . 
filename = '\ENV4_1.DAT'. 

^ ^ In a #mrelated answer#m you were asked to describe the 
"Description of Experiment Type or Class". Please elaborate 
on that answer to give a general description of the TYPE of 
experiments . 



edit_file (concat 
close_window ( ) . 
close (concat 


( C : \GARDEN\ , 7CURDIR, ' \ENV4_1 . DAT' ) , yellow, black , red ,5,12,70, 
(C: \GARDEN\ , 7CURDIR, ' \ENV4_1.DAT' ) ) . 


topic 'Description of Experiment Type or Class', 
window ('Description of Experiment Type or Class 


(Question 1 of 39 ) ', blue, whit 


say ( # #e , 

Please enter a narrative description of the type or class 
of the #mexperiment#m. This topic is also addressed under 
the headings "Experiment Procedures to be Used" and "General 
Description of Type of Experiments". 


Press the ffyellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #fyellow RETURNfd to confirm save.'] 

Jlosi f windoS° 1 (r t (C: XGARDENX ' ?CURDIR, ' \ENV1_1 . DAT' ) , yellow, black , red, 5 , 9 , 70 , 3 
close - (concat (C: \GARDEN\ , 7CURDIR, ' \ENV1_1.DAT' ) ) . 

end. (* Description of experiment type or class *) 
end. (* Description of type of experiments *) 


topic 'Experiment Procedures to be Used'. 

relatedf ile 5 *- 1 ' \EKVl P l?DAT' l y eS t0 *“ DSed (Question 18 o£ 39) ' .blue, white, whit 


relatedtopic — 'Description of Experiment Type or Class' . 
filename = '\ENV4_2.DAT'. 
say ( ' 


In a #mrelated answer#m you were asked to describe 
the "Description of Experiment Type or Class". Please 
elaborate on that answer to describe the TYPES of experiment 
procedures to be used. 


Press the #f yellow RETURN KEY#d to enter the editor, 

#fyellow ESC#d to leave editor, and #fyellow RETURN#d to confirm 


edit_file (concat 
close_window () . 
close (concat 


(C: \GARDEN\ , ?CURDIR, ' \ENV4_2.DAT' ) , yellow, black, red, 5 , 12 , 70 , 
(C: \GARDEN\ , 7CURDIR, ' \ENV4_2.DAT' ) ) . 


topic 'Description of Experiment Type or Class'. 

window ('Description of Experiment Type or Class (Question 1 of 39) ', blue, whit 

say ('#e 

Please enter a narrative description of the type or class 
#mexper iment#m . This topic is also addressed under 
the headings "Experiment Procedures to be Used" and "General 
Description of Type of Experiments". 


Press the #f yellow RETURN KEY#d to enter the editor, 

#fyellow ESC/d to leave editor, and ffyellow RETURN#d to confirm save.') 


edit_file (concat 
close_window ( ) . 
close (concat 


(C: \GARDEN\ , 7CURDIR, ' \ENV1_1.DAT' ) , yellow, black, red, 5,9,70,1 
(C: \GARDEN\ , 7CURDIR, '\ENV1_1.DAT')) . 


end. (* Description of Experiment Type or Class *) 
end. (* Experiment Procedures to be Used *) 


topic ' Measurements and Range of Values Required'. 

window ('Measurements and Range of Values Required (Question 19 of 39 ^ ' 
, blue, white, white, 2 , 2 , 70, 6) . 1 


say (' 

Please enter the types of measurements and the ranges 
of values required for the experiment. 


Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC/d to leave editor, and #fyellow RETURN#d to confirm sa 

f il e (concat (C: \GARDEN\ , 7CURDIR, ' \ENV4_3.DAT' ) , yellow, black, red, 5,9,70,1 



close window () . , 

close" (concat (C: \GARDEN\ , 7CURDIR, ' \ENV4_3.DAT 
end. (* Measurements and Values of Ranges Required 


'))• 

*) 


topic ' Experiment Sample Requirements', 
window ('Experiment Sample Requirements 


(Question 20 of 39) ', blue, white, white. 


say (' 


Please enter the experiment sample requirements, 
both in terms of number and materials. 


Press the #fyellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #f yellow RETURN#d to confirm save 


ed it_file (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_1.DAT' ) , yellow, black, red, 5 , 9 , 70 , 1 

close window (). __ _ __ - * » 

close (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_1.DAT )). 

end. (* Experiment Sample Requirements *) 


topic 'Atmospheric Requirements'. 

window ( ' Atmospheric Requirements ' , blue , white , white ,2,2,70,6) 

changem = NO. 

na = 'NOT APPLICABLE' . 


ask ( 9 

Are there any atmospheric requirements for your experiments? ' , 

atmosreqt,?yn) . 

eof = number_to_char (26) . 

if ?atmosreqt = YES 

then . . . 

do ('Atmospheric Requirements (Pressure)') 

do ('Atmospheric Requirements (Gas Composition)') 

and . ..... 

do ('Atmospheric Requirements (Humidity)') 

and 

do ('Atmospheric Requirements (Vacuum) ') 

pi CP 

pressure = read_line (concat (C: \GARDEN\,?CURDIR, ' \ENV5_2_1.DAT' ) ) 
and 

pressure is string_copy(?pressure,l,14) 

gas = read_line (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_2_2 .DAT' ) ) 
and 

gas is str ing_copy ( ?gas ,1,14) 

and. 

hum = read_line (concat (C:\GARDEN\,?CURDIR, '\ENV5_2_3.DAT') ) 

and 

hum is string_copy (?hum, 1, 14) 

vacuum = read_line (concat (C: \ GARDEN \,?CURDIR, ' \ENV5_2_4 .DAT' ) ) 
and 

vacuum is str ing_copy ( ?vacuum ,1,14) 

and _ _. 

if (?pressure <> ?NA and ?pressure <> ?eof) 

or 

(?gas <> ?NA and ?gas <> ?eof) 

(?hum <> ?NA and ?hum <> ?eof) 

or 


(?vacuum <> ?NA and ?vacuum <> ?eof) 

then 

window (' yellow, blue, yellow, 2, 2, 70, 14 ) 
and 
ask ( ' 

There are answers on file that indicate this question 
was previously answered YES, rather than NO. If the 
correct answer is NO, the system will need to chanqe the 
answers from your previous session that were directly 
related to the YES response, since they are no longer 
applicable. Do you authorize the system to change 
these previous answers? 7 ,c ;em,?yn) 
and 

close_window ( ) 
else 

changem = YES. 
if ?changem = YES 

( concat ( C : \GARDEN\ , 7CURDIR, ' \ENV5_2_1 . DAT 7 ) ) 
(concat(C:\GARDEN\,?CURDIR, '\ENV5_2_1.DAT') , ?NA) 
(concat (C: \ GARDEN \,?CURDIR, 7 \ENV5_2_1.DAT' ) ) 
(concat (C: \GARDEN\ , 7CURDIR, 7 \ENV5_2_2.DAT 7 ) ) 
(concat (C: \GARDEN\ , 7CURDIR, 7 \ENV5_2_2.DAT 7 ) , ?NA) 

(concat (C: \GARDEN\ , 7CURDIR, 7 \ENV5_2_2 . DAT 7 ) ) 

(concat (C: \GARDEN\ , 7CURDIR, 7 \ENV5_2_3 . DAT 7 ) ) 
(concat (C:\GARDEN\,?CURDIR, 7 \ENV5_2_3.DAT 7 ) , ?NA) 
( concat ( C : \GARDEN\ , 7CURDIR , 7 \ENV5_2_3 . DAT 7 ) ) 

( concat ( C : \GARDEN\ , 7CURDIR, 7 \ENV5_2_4 . DAT 7 ) ) 
(concat (C: \GARDEN\ , 7CURDIR, 7 \ENV5_2_4.DAT 7 ) , 7NA) 

( concat ( C : \GARDEN\ , 7CURDIR, 7 \ENV5_2_4 . DAT 7 ) ) . 


then 

new_f ile 

and 

write 

and 

close 

and 

new_file 

and 

write 

and 

close 

and 

new_file 

and 

write 

and 

close 

and 

new_file 

and 

write 

and 

close 


topic 'Atmospheric Requirements (Pressure) 7 . 

window ( 'Atmospheric Requirements (Pressure) (Question 21 of 39) 7 , blue, white, w 

say (' 

Please enter the experiment requirements 
in terms of atmospheric pressure. 

Press the ft yellow RETURN KEY#d to enter the editor, 

#f yellow ESC/d to leave editor, and #fyellow RETURN#d to confirm save. 7 

file (concat (C: \GARDEN\,?CURDIR, 7 \ENV5 2 l.DAT 7 ) , yellow, black, red, 5, 9, 70 
close_wmdow () . ' ' ' 

close (concat (C: \GARDEN\, 7CURDIR, 7 \ENV5_2_1.DAT 7 )) . 

end. (* Atmospheric Requirements (Pressure) *) 

topic 'Atmospheric Requirements (Gas Composition) 7 . 



window ('Atmospheric Requirements (Gas composition) (Question 22 of 39)', blue, w 
say (' 


Please enter the experiment requirements 
in terms of atmospheric gas compos ltion. 


the #fvellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d Y to leave editor, and #f yellow RETURN#d to confirm s 


edit_file (concat (c: \GARDEN\,?CDRDIR, ' \ENVS_2_2.DAT' ) .yellow, black, red, 5,9, 70 

C c!!Si Wind °“coniat (C:\GARDEN\,?CDRDIR, '\ENV5 2 2 DAT') ) . 
end. (* Atmospheric Requirements (Gas Composition) ) 


t °window^°Atmospheric U Re^irements 1 I 1 (Humidity) (Question 23 of 39, ' ,blue,white,w 


say (' 


Please enter the experiment requirements 
in terms of atmospheric humidity. 


ur-©<i<5 the #fvellow RETURN KEY#d to enter the editor, 
,fyeilow^ESC#dto leave editor, and «yellow RETURN #d to confirm save 


edit_file (concat (c: !GARDEN!,?CDRDIR, ' \ENV5_2_3 .DAT' ) .yellow, black, red, 5,9,70 

close~“^ nd< ( concat (C: \GARDEH\,?CURDIR, '\EHV5_2_3.DAT' ) ) . 
end. (* Atmospheric Requirements (Humidity) *) 


topic ' Atmospheric Requirements (Vacuum)'. . OA - 3Q w blue white whi 

window ('Atmospheric Requirements (Vacuum) (Question 24 of 39) , blue, white, wni 


say (' 


Please enter the experiment requirements 
in terms of atmospheric vacuum. 


Pr-^ess the #fvellow RETURN KEY#d to enter the editor, 

/fyellow t ESC/d to leave editor, and #fyellow RETURNS to confirm save 


e dit_f ile (concat (C: \GARDEN\ , 3CURDIR, ' \ENV5_2_4 . DAT' ) , yellow, black, red , 5,9,70 

close~ Wind °concat (C: \ GARDEN! , 2CURDIR, ' \ENV5_2_4.DAT' ) ) . 
end. (* Atmospheric Requirements (Vacuum) *) 
close_window () . 

END. (*Atmospheric Requirements*) 


topic 'Temperature Control and Measurement'. . ot . f 39 w blue white, v 

window ('Temperature Control and Measurement (Question 25 of 39) ,biue,wnite, 


Say ^ Please enter the experiment requirements in terms of 

temperature control , measurement range, and the accuracy 
required. 


Dreis - the #fvellow RETURN KEY#d to enter the editor, 

/fyellow^SCfd to leave editor, and /fyellow RETURNS to confirm sav, 


edit_file (concat (C: \GARDEN\, 7CURDIR, ' \ENV5_3.DAT' ) .yellow, black.red, 5, 10,70 
close - Wind °concat (C: ! GARDEN! , 2CURDIR, '\ENV5_3.DAT' ) ) 


end. (* Temperature Control and Measurement *) 

topic 'Vibration Control and Measurement'. 

window ('Vibration Control and Measurement (Question 26 of 39) ', blue, white, wh 

say (' 

Please enter the experiment requirements in terms of 
vibration control and measurement range, along with the accuracy 
and frequency of measurements required. 

Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #fyellow RETURN#d to confirm sa 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_4 .DAT' ) , yellow, black, red, 5 , 10, 70 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_4.DAT' ) ) . 

end. (* Vibration Control and Measurement *) 

topic 'Test Matrices'. 

window ('Test Matrices (Question 27 of 39) ', blue, white, white, 2 , 2 , 70, 6) . 
say (' 

Please enter the experiment requirements in the form of 
test matrices to describe the number and duration of tests required. 

Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #f yellow RETURN #d to confirm sa 

edit_f ile (concat (C: \GARDEN\ , ?CURDIR, ' \ENV5 5. DAT' ), yellow, black, red, 5, 9, 70,1 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5 5. DAT' ) ) . 

end. (* Test Matrix *) 

topic ' Imaging Requirements ' . 

window ('Imaging Requirements' , blue, white, white, 2, 2, 70,6) . 

changem = NO. 

na = 'NOT APPLICABLE'. 

ask (' 

Are there any imaging requirements for your experiments? ' 
imager eqt, ?yn) . 
eof = number_to_char (26) . 
if ?imagereqt = YES 
then 

do ('Imaging Requirements (Photography)') 
and 

do ( ' Imaging Requirements (Radiography) ' ) 
and 

do ('Imaging Requirements (Television)') 
and 

do ( ' Imaging Requirements (Resolution) ' ) 
and 

do ('Imaging Requirements (Frame Rate)') 
else 

photo = read_line ( concat (C : \GARDEN\,?CURDIR, '\ENV5 6 1 . DAT ' ) ) 
and 

photo is str ing_copy ( ?photo ,1,14) 

and 

radio = read_line (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5 6 2. DAT')) 
and 



is string_copy (?radio, 1, 14) 


radio 
and 

tv = read_line (concat (C: \GARDEN\ , ?CURDIR, ' \ENV5_6_3 . DAT' ) ) 
and 

tv is string_copy (?tv, 1, 14) 

and 

resolution = read line ( concat ( C i \GARDEN\ f ? CURDIR / 9 \ ENV5 6 4*DAT )) 

and 

resolution is string_copy (?resolution, 1, 14) 

and _ . . . 

frame = read_line (concat (C: \ GARDEN \,? CURDIR, ' \ENV5_6_5.DAT )) 

and 

frame is string_copy (?frame, 1, 14) 

and 

if (?photo <> ?NA and ?photo <> ?eof) 

or 

(?radio <> ?NA and ?radio <> ?eof) 

or 

(?tv <> ?NA and ?tv <> ?eof) 

or 

(?resolution <> ?NA and ?resolution <> ?eof) 
or 

(?frame <> ?NA and ?frame <> ?eof) 


then 

window ( ' ' , yellow, blue, yellow, 2 , 2 , 70, 14) 
and 
ask ( ' 

There are answers on file that indicate this question 
was previously answered YES, rather than NO. If the 
correct answer is NO, the system will need to change the 
answers from your previous session that were directly 
related to the YES response, since they are no longer 
applicable. Do you authorize the system to change 
these previous answers?' ,changem,?yn) 
and 

close_window ( ) 
else 

changem = YES. 


if ?changem = YES 


then 

new_f ile 

and 

write 

and 

close 

and 

new_f ile 

and 

write 

and 

close 

and 

new_f ile 

and 

write 

and 

close 

and 

new file 


(concat (C: \GARDEN\ , 7CURDIR, '\ENV5_6_1.DAT' ) ) 

( concat (C:\GARDEN\,?CURDIR, '\ENV5_6_1.DAT') , ?NA) 
( concat ( C : \GARDEN\ , ? CURDIR, ' \ENV5_6_1 . DAT ') ) 

( concat ( C : \GARDEN\ , ? CURDIR, ' \ENV5_6_2 . DAT ' ) ) 

( concat (C:\GARDEN\,?CURDIR, '\ENV5_6_2.DAT') ,?NA) 
(concat (C: \GARDEN\ , ? CURDIR, ' \ENV5_6_2 . DAT' ) ) 

( concat ( C : \GARDEN\ , ?CURDIR, ' \ENV5_6_3 . DAT ') ) 
(concat (C:\GARDEN\,?CURDIR, '\ENV5_6_3.DAT') , ?NA) 
( concat (C : \GARDEN\,?CURDIR, '\ENV5_6_3.DAT') ) 
(concat (C: \GARDEN\ , ? CURDIR, ' \ENV5_6_4.DAT') ) 


and 

write 

and 

close 

and 

new_f ile 

and 

write 

and 

close 


(concat (C : \GARDEN\ , 7CURDIR, ' \ENV5_6_4 . DAT ' ) , ?NA) 
( concat ( C : \GARDEN\ , 7CURDIR, ' \ENV5_6_4 . DAT ' ) ) 

( concat ( C : \GARDEN\ , 7CURDIR, ' \ENV5_6_5 . DAT ') ) 
(concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_6_5 .DAT' ) , ?NA) 
(concat (C: \GARDEN\ , ?CURDIR, ' \ENV5_6_5.DAT') ) . 


topic 'Imaging Requirements (Photography)'. 

window ('Imaging Requirements (Photography) (Question 28 of 39) ', blue, white, wt 

say ( ' 

Please enter the imaging requirements of your experiment 
in regards to photography needs. 


Press the /fyellow RETURN KEY/d to enter the editor, 

/fyellow ESC/d to leave editor, and / fyellow RETURN/d to confirm save 


edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5 6 l.DAT' ) , yellow, black, red, 5, 9 7( 
close_window (). ' ' ' ' 

close (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_6 l.DAT')). 
end. (* Imaging Requirements (Photography) *) 


topic 'Imaging Requirements (Radiography)'. 

window ('Imaging Requirements (Radiography) (Question 29 of 39) ', blue, white, wh 

say (' 

Please enter the imaging requirements of your experiment 
in regards to radiography needs. 


Press the /fyellow RETURN KEY/d to enter the editor, 

#f yellow ESC/d to leave editor, and ft yellow RETURN#d to confirm save 

Slos^windoS 0 ")^ (C:XG ^ E ^ X ' ?CURDIR ' '\ ENV5 - 6 - 2 * DAT/ ) yellow, black, red, 5,9,70 

close - (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_6 2. DAT')), 
end. (* Imaging Requirements (Radiography) *) 


topic 'Imaging Requirements (Television)'. 

window ('imaging Requirements (Television) (Question 30 of 39) ', blue, white, whi 

say (' 

Please enter the imaging requirements of your experiment 
in regards to television needs. 


Press the yellow RETURN KEY#d to enter the editor, 

/fyellow ESC/d to leave editor, and /fyellow RETURN/d to confirm save 

edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5 6 3. DAT') , yellow, black, red, 5, 9 , 70 
close_window (). ' ' ' ' 

Close (concat (C: \GARDEN\,?CURDIR, '\ENV5_6_3.DAT') ) . 

end. (* Imaging Requirements (Television) *) 

topic 'Imaging Requirements (Resolution)'. 

window ('Imaging Requirements (Resolution) (Question 31 of 39) ', blue, white, whi 



Say ( please enter the imaging requirements of your experiment 

in regards to resolution needs. 


the JSfvellow RETURN KEY#d to enter the editor, 

#fyellow^ESC#d to leave editor, and #fyellow RETURN #d to confirm save 


edit lile (concat (C: \GARDEN\ ,?CURDIR, ' \ENV5_S_4.DAT' ) , yellow, black, red, 5,9 , 7C 

close -Wind< (concat (C: \GARDEN\, 7CURDIR, ' \ENV5_6_4 .DAT' ) ) 
end. (* Imaging Requirements (Resolution) *) 


t °window B t < ' Iroagin^Requirements^Frame^ate) (Question 32 of 39) ' .blue, white, v hi 


Say ^please enter the imaging requirements of your experiment 

in regards to frame rate needs. 


Press the #fvellow RETURN KEY#d to enter the editor, 

#fyellowESC#d to leave editor, and #fyellow RETURN#d to confirm sav. 


edit_file (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_6_5.DAT') , yellow, black, red, 5,9,71 

close“ Wind °concat ( C : \GARDEN\ , 7CURDIR, ' \ENV5_6_5 . DAT ' ) ) . 
end. (* Imaging Requirements (Frame Rate) *) 
close_window () . 

END. (‘Imaging Requirements*) 


t °window 1 t^Electromagnetic i Limitations (Question 33 of 39, ' .blue. white, white, 2, 


say (' 


Please enter the electromagnetic limitations for the type 
of your experiment. 


Press the #fyellow RETURN KEY#d to enter the editor, 

#fyellow ESC#d to leave editor, and #fyellow RETURN*! to confirm save 


edit_f ile (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5_7.DAT') , yellow, black, red, 5, 9,70, 

close“ Wind< ( concat (C : \ GARDEN \ , 7CURDIR, ' \ENV5_7 . DAT' ) ) . 
end. (* Electromagnetic Limitations *) 


toDic 'Astronaut Involvement (Extravehicular Activity)'. . - , 

window ('Astronaut Involvement (Extravehicular Activity) (Q 


say (' 


Please enter the astronaut involvement in regards to 
extravehicular activity . 


Press the #fvellow RETURN KEY#d to enter the editor, 

/fyellow ESCfd to leave editor, and Jfyellow RETURNS to confirm sav< 


e dit_f ile (concat (C: \GARDEN\,?CURDIR, '\ENV5_8_1.DAT' ) , yellow, black, red, 5, 9, . 

close - Wind< (concat (C: \GARDEN\ , 7CURDIR, ' \ENV5 8 1 . DAT ' ) ) . 
end. (* Astronaut Involvement (Extravehicular Activity) *) 


' Astronaut Involvement (Activation of Experiment)'. 


topic 


window ( 'Astronaut Involvement (Activation of Experiment) (Question 35 of 39 w 
, blue, white, white, 2 , 2 , 70, 6) . ' 


say (' 

Please enter the astronaut involvement in regards 
to their activating the experiment. 


Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #f yellow RETURN#d to confirm save 

edit— file (concat (C: \GARDEN\ , 7CURDIR, ' \env5 8 2. DAT') , yellow, black, red, 5, 9, 70 
close_window (). ''' 

close (concat (C: \GARDEN\, 7CURDIR, ' \env5 _ 8 2 .DAT' ) ) . 

end. (* Astronaut Involvement (Activation of Experiment) *) 


topic 'Data Requirements'. 

window ('Data Requirements (Question 36 of 39 ) 
', blue, white, white, 2 , 2 , 70,6) . 


say (' 

Please enter the data requirements for your experiment. 


Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #f yellow RETURN#d to confirm save 


edit_file (concat (C: \GARDEN\ , 7CURDIR, 
close_window () . 

close (concat (C: \GARDEN\ , 7CURDIR, 

end. (* Data Requirements *) 


'\ENV5_9.DAT') , yellow, black, red, 5 , 9 , 70 , I 
'\ENV5_9.DAT') ) . 


topic 'Telepresence'. 

window ('Telepresence (Question 37 of 39) ', blue, white, white, 2, 2 , 70, 6) . 
say (' 

Please enter the telepresence requirements for your experiment. 


Press the #f yellow RETURN KEY#d to enter the editor, 

#fyellow ESC#d to leave editor, and #fyellow RETURN#d to confirm save 


edit-file (concat (C: \GARDEN\ , 7CURDIR, 
close_ window ( ) . 

close (concat (C: \GARDEN\ , ?CURDIR, 

end. (* Telepresence *) 


' \EN5_10_1.DAT') , yellow, black, red, 5, 9,70 
'\EN5_10_1.DAT') ) . 


topic 'Telerobotics'. 

window ('Telerobotics (Question 38 of 39) ', blue, white, white, 2 , 2 , 70, 6) . 
say (' 

Please enter the telerobotics requirements for your experiment. 

Press the #f yellow RETURN KEY#d to enter the editor, 

#f yellow ESC#d to leave editor, and #f yellow RETURN#d to confirm sav« 

edit— file (concat (C: \GARDEN\ , ?CURDIR, ' \EN5_ 10 2. DAT' ), yellow, black, red, 5,9, 7C 
close_ window ( ) . 

close (concat (C: \GARDEN\ , ?CURDIR, ' \EN5 10 2. DAT') ) . 

end. (* Telerobotics *) — 



topic 'Other Requirements'. . f 39) / blue , white , white , 2 , 2 , 70, 6) . 

window ('Other Requirements (Question 39 or ' dau » 


say A ^ / t he Principal Investigator (#mPI#m) , please describe other 
appUo^^e iaterlal not addressed in these requirements . 


^^^^^C^^^L^tSy^nr^reriof^Jd-to cedi, save 


edit_f ile (oonoat (C: \ GARDEN! , 7CDRDIR, ' \ENV6_1.DAT' ) .yellow, black, red, 5 ,9,70,1 

cioJJ- Wind °oon«t (C: \ GARDEN! , 7CURDXR, ' \EHV6_1.DAT' ) ) • 
end. (* Other Requirements *) 


^related'answer^s^eadtconcat (Ct \GARDEN\,?CORDIR,?RELATEDFILE) ) • 
window T 'Related Topic' , blue, white, white, 2, 2, 76,14 ) . 

^This is your answer for the: #f yellow i^t , 

?relatedtopic, '#d # n #n', 

?related answer, '#n # n . . . 

Press #f yellow SPACE #d to continue. ) • 

window ('Use this answer?' , yellow, blue, red, 2, 12,74, 6) . 

SXld'you like to incorporate this answer into your current response?', 
incorporate , ?yn) . 

if then C «ite a ^oncattc:\GARDEN\,?CURDIR, ’FILENAME) , ?related_answer) . 

close_window () . 

close”~'( ooncat ( C : \GARDEN\,?CURDIR,?FILENAME) ) . 





